Help for this page
#!/usr/bin/perl -w -T ... } } 1;
#!/usr/bin/perl -w use IO::Socket::INET; ... } close $sock;