#!/usr/bin/perl -l

use strict;
use warnings;

my $uninitialized;

print do { $uninitialized };
print do {};
print do { if( 1 ){} };
print do { if( 0 ){} };

print '-' x 10;

print scalar do { $uninitialized };
print scalar do {};
print scalar do { if( 1 ){} };
print scalar do { if( 0 ){} };

##</code><code>##

Use of uninitialized value $uninitialized in print at ./perlmonks_do_unitialized.pl line 8.



0
----------
Use of uninitialized value $uninitialized in print at ./perlmonks_do_unitialized.pl line 15.

Use of uninitialized value in print at ./perlmonks_do_unitialized.pl line 16.

Use of uninitialized value in print at ./perlmonks_do_unitialized.pl line 17.

0