Help for this page

Select Code to Download

Select or download this

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

Select or download this

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