use Proc::Background;
my $cmd="du(qw//usr/bin//);
my $proc=Proc::Background->new($cmd);
my $alive=$proc->alive;
my $pid=$proc->pid;
print "pid is $pid\n";