use strict;
use warnings;
my $Testout;
open( $Testout, ">&STDOUT" ) or die "Can't dup STDOUT:  $!";
print $Testout "Hello Perl Monks!\n";
__END__