Perl Script: TCP Attack