use warnings;
use strict;

use Proc::Background;

my @cmd = qw(perl sleep.pl);

my $proc = Proc::Background->new(@cmd);
my $pid = $proc->pid;

print "*** $pid ***\n";