Seems to be related with some fork-output-issue. Commandline does seem to do it, can't reproduce the same thing in forked-forks. Anyone an idea?

perl -e "use strict; use IPC::Open2; local (*OUT,*IN); 
eval{ 
my $pid=open2(*OUT,*IN,\"gethosts\"); 
waitpid($pid,0);
}; 

while(<OUT>) { print "Floep: $_\n\";}"
[download]