Thanks for the updates, I understand. Then perhaps someone can help me get this script to set the tcp to SYN_SENT on 100 ports:
#!/usr/bin/perl use Socket; $count=3500; while ($count<3601) { $count++; $addr=sockaddr_in($count,inet_aton('localhost')); socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')); connect(S,$addr); } What am I missing?? Thanks, Ron -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>