Help for this page
#!/usr/bin/perl ... } close $nfh or die "Can't close result file: $!";
my @order = qw(wsompapgtw05 wsomddvfxa01 wsomdavpra03 WSOMQAVPRA05); for my $server (@order) { ...