Help for this page
#!/usr/bin/perl -w use strict; ... } return 0; }
#!perl -w use strict; use IO::Socket::INET; ... } }