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

##</code><code>##

use warnings;
my $var=1;
print $var unless $var eq undef;