servername-001 imm-servername-001.companyname.com servername-002 imm-servername-002.companyname.com #### open my $fh, $serverfile or die "Can't open $serverfile: $!"; my @services = map {chomp; [split]} <$fh>; close $fh;