my $child_pid = system(1, @args);

...

kill 9 => $child_pid; # boom