Select Code to Download

#!/usr/bin/perl -w
 use IO::Socket;
 use Net::hostent;              # for OO version of gethostbyaddr
...
   }
   close $client;
 }

#!/usr/bin/perl -w
    use strict;
...
    }