Help for this page

Select Code to Download

Select or download this

#!C:/Activeperl/bin/perl.exe 
use strict;
...
Computer1
Computer2
Computer3

Select or download this

my (@Computers=(<IN>); #Do this
#while (my $computer=<IN>) {           #change this
while (my $computer=pop @Computers) {  #to this