Re^3: print statements in perl pakages seem to be masked from STDOUT

Select or download this

#./ThisPackage.pm
package ThisPackage;
...
print "Dummy code gets run at compile/use time\n";

1;

Select or download this

#./pkg.pl
BEGIN { print "this should print before\n" }
...
use ThisPackage;
ThisPackage::new(qw/hello world/);
BEGIN { print "this should print after the use, but before the new\n" 
+}

Select or download this

# output
this should print before
Dummy code gets run at compile/use time
this should print after the use, but before the new
ThisPackage::new(hello world)

Select Code to Download