#!c:/Perl/bin/perl.exe

sub Fork {
    my $pid;
    defined($pid = fork()) or die "Can't fork: $!\n";
    if ($pid) {print "in parent ($$).\n"}
    else {print "in child ($$)\n";exit;}
}

sub show_block(&$) {
    my ($block, $message) = @_;

    $message =~ s/\n*$/\.\.\./o;
    print $message;
    my $result = eval { &$block };
    $@ ? die "failed: $@\n"
       : print "done\n";
    $result;
}

Fork();
show_block {Fork()} "testing forking in Windows";

print "done.\n";


##</code><code>##

in parent (2752).
in child (-2348)