use warnings;
my $junkprint   = print JUNK "foo";
my $stdoutprint = print STDOUT "junkprint = '$junkprint'\n";
print "stdoutprint = '$stdoutprint'\n";
__END__
Name "main::JUNK" used only once: possible typo at - line 2.
print() on unopened filehandle JUNK at - line 2.
Use of uninitialized value in concatenation (.) or string at - line 3.
junkprint = ''
stdoutprint = '1'