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

##</code><code>##

my $host = get_host();
print "hostname = $host";

##</code><code>##

hostone
hostname = hostone