if (my $pid = fork) {
    sleep 1;
    kill 9, $pid;
    die("Shplah");
} else {
    while (1) {
        print "Yay!\n";
    }
}
[download]

This should exit the program on-die, correct? It doesn't work. I get the little flashing cursor after the die message.