pid of process opened by system

[perl-beginners]

Hello,

I'm doing this:

eval {
  local $SIG{ALRM} = sub { die "alarm\n" };
  alarm 10;
  system($prog, @args);
  alarm 0;
}
if($@ =~ /alarm/) {
  # have to kill $prog;
}

The problem is, that the process is still running after the perl
script has exited. And I have to kill it by hand. But I want perl
to do the job.

regards,
   Mik

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>