Help for this page
#!/usr/bin/perl -w ... die "Can't accept socket ($!)\n";
#!/usr/bin/perl -w ... close $sock;