[P5P] [perl #127794] Strange behavior when forking in BEGIN

This script, should output "about to fork" and "Hi" 10 times. Instead it
prints "about to fork" 10 times, but "Hi" only once.

#!/usr/bin/env perl

BEGIN {
my $start = $$;
for ( 1 .. 10 ) {
my $pid = fork;
if ($pid) {
print "About to fork\n";
waitpid($pid, 0);
}
else {
last;
}
}
exit 0 if $$ == $start;
}

print "Hi\n";

Here is where it gets even MORE interesting, add these 3 lines to the end
of the script and it prints "Hi" twice:

__END__

print "Hi\n";

But wait, theres more! Add those 3 lines again, so it looks like this:

...
print "Hi\n";

__END__

print "Hi\n";

__END__

print "Hi\n";

And bam, it prints "Hi\n" all 10 times.

This looks like a filehandle fork bug to me, but I don't really know much
about these things.