use Win32;

my $pid = fork();
die "Could not fork Fork!" unless defined $pid;
if ( $pid ) {
    # Parent makes whoopee while kids are away
    do {print $come_to_momma_honey++ . "\n"; sleep 1 } while 1;
}
else {
    # kid so do the MsgBox
    Win32::MsgBox("My parent's are getting up to mischief while I am waiting for you to press OK!");
  die "You killed me. Your own flesh and blood!\n";
}