#!/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 ){} };