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