sub get_host
{
open( HOST, "<hosts.txt");
     while(<HOST>)
     {
       my($line) = $_;
       chomp($line);
       print "$line\n";
       return($_);
     }
}