Help for this page
#!/usr/bin/perl -w use strict; ... } __END__
#!/usr/bin/perl -w use strict; ... close($server); __END__