Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
}
close $nfh or die "Can't close result file: $!";
  2. or download this
    my @order = qw(wsompapgtw05 wsomddvfxa01 wsomdavpra03 WSOMQAVPRA05);

for my $server (@order) {
...