my @jobs ; ... push @jobs, Proc::Background->new( $command, $arg1, $arg2 ); ... $jobs[0]->die if $jobs[0]->alive;