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