my $pid = fork;
if ($pid == 0) {
    exec $prog, "bla", foo";
    die $!;
}
# ... irgendwann
kill 9 => $pid;