Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w 

...
close $sock;
close $new_sock;
exit;

Select or download this

telnet 212.31.100.100 20
Trying 212.31.100.100...
telnet: connect to address 212.31.100.100: Connection refused
telnet: Unable to connect to remote host