use warnings;
use strict;

my $x;
print "$x\n";