chomp( my $strHostname = qx{ hostname }); 
 
if ($strHostname eq "milkbottle") { 
print  "yes"; 
} else { 
print "no"; 
}

use strict; 
use warnings; 
use List::MoreUtils qw(any); 
my $input_file = $ARGV[0] // \do{ 
     "milkbottle\n" 
    ."beerbottle\n" 
    ."milktoast\n" 
}; 
 
open my $FH, '<', $input_file or die "Cannot open input\n$!"; 
my @hosts = <$FH>; 
chomp @hosts; 
 
my $strHostname = qx{ hostname }; 
 
print( ( any {$strHostname eq $_} @hosts ) ? 'yes' : 'no' );