[...] my $pid = fork; my $dontDie = 2; [...] #### $SIG{INT} = sub { die "This is the end" unless --$dontDie; warn "Sending sig INT to child PID $pid"; kill 'INT' => $pid; };