my $a;
my $b = "";
print "\$a is not defined\n" unless defined $a;
print "\$b is defined\n" if defined $b;