my $var;
print "\$var not defined" unless defined $var;