Select Code to Download

use IO::Socket;
use strict;
...
        }
        print "$host is closed \n" ;

 
use IO::Socket;                               
use Data::Dumper ;                            
...
        }

}