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