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