use warnings;
my $var=1;
print $var if defined $var;