C:\test>type bug*

bugSTDOUT.pl

#!/usr/bin/perl
print STDOUT "Running bugSTDOUTb.pl with backticks\n";
print STDOUT "stdout from bugSTDOUTb.pl=" . `$^X bugSTDOUTb.pl` . "\n";

bugSTDOUTb.pl

#!/usr/bin/perl
print STDOUT "Running bugSTDOUTc.pl with system()\n";
system( $^X, 'bugSTDOUTc.pl' );
print STDOUT "$0 done\n";

bugSTDOUTc.pl

#!/usr/bin/perl
print STDOUT "Hello world!\n";