Help for this page
#!/usr/bin/perl use strict; ... } close $sock;
#!/usr/bin/perl use strict; ... close($sock); close OUT; print "goodbye\n";