Help for this page
print ((defined $a) ? "Defined\n" : "Undefined\n");
print +(defined $a) ? "Defined\n" : "Undefined\n";