if ( @client > 1 ) { foreach my $client (@client) { print MYLOG "Working on Source: ",$srcMachine," and Client: " ,$client->[0], "\n"; if ( &isAlive( $client->[0] ) ) { print $$."\n"; my $job = Win32::Job->new(); print $job."\n"; my $job_result = $job->spawn(&startCopy( $srcMachine, $client->[0] )); die $^E unless (defined $job_result); #print $job_result; }