Select Code to Download

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;