eval 'exec /usr/bin/perl -w -S $ ${1+"$@"}'
if 0;

use strict;
use PWPerl;
use POSIX "sys_wait_h";
use POSIX "signal_h";

my @wkslist = ("ws3133", "ws3735", "ws31175", "ws193243", "ws2023", 
	       "ws5445", "ws24157", "ws31205",);
my $rsh_cmd = "rshto -to 60";
my $wks;

foreach $wks (@wkslist) {
	print "rshing to $wks \n";
	pwsystem("$rsh_cmd $wks ls &");
}


waitpid(-1,0);
print "all done\n";