$ perl -Mstrict -MPOSIX -wE 'my $pid = fork; if( $pid ){ kill TERM => $pid; waitpid $pid => WNOHANG; say kill 0 => $pid;  } else { sleep 3;  exit; }'
1
$