Select Code to Download

my $a; print "my \$a;\n";
print "Undefined\n" unless defined $a;
...
undef $a; print "\nundef \$a;\n";
(defined $a) ? print "Defined\n" : print "Undefined\n";
($a) ? print "True\n" : print "False\n";

print (defined $a) ? "Defined\n" : "Undefined\n";