Select Code to Download

#!/usr/bin/perl -l

...
print scalar do {};
print scalar do { if( 1 ){} };
print scalar do { if( 0 ){} };

Use of uninitialized value $uninitialized in print at ./perlmonks_do_u
+nitialized.pl line 8.

...
Use of uninitialized value in print at ./perlmonks_do_unitialized.pl l
+ine 17.

0