use strict;
use warnings;
use IPC::Run;
use POSIX qw(:signal_h :errno_h :sys_wait_h);
use Config;

...

my $has_nonblocking = $Config{d_waitpid} eq "define" || $Config{d_wait
+4} eq "define";
if ($has_nonblocking) {
  $SIG{CHLD} = \&REAPER;
  sub REAPER {
    my $pid = waitpid(-1, &WNOHANG); # wait for any child, return PID 
+if state changed else return 0 if stopped or -1 if error
    if ($pid == -1) {
      # ignore
    }
    elsif ( &WIFEXITED($?) ) { # true if exited normally
      print "$pid exited.\n";
    }
    else { # must have been some stop signal or no change in state
      print "False alarm $pid.\n";
    }
    $SIG{CHLD} = \&REAPER;
  }

  my $pid = fork();
  defined $pid or die $!;

  unless ($pid) {
    my @args = ( ... );
    run \@args or die $?;
    exit;
  }

  my $kid;
  do {
    $kid = waitpid(-1, &WNOHANG);
  } while $kid > 0;
}

...

exit;
[download]

Note that if your forked child inherits system file descriptors like STDIN and STDOUT that are actually connected by a pipe or socket, even if you exit, then the remote server (such as, say, a CGI script or a backgrounded job launched from a remote shell) won't think you're done. You should reopen those to /dev/null if it's any issue.

Maybe also trow Capture::Tiny in the mix ... :D

Send to background... this is very good idea. I'll try this. Thank you much.