RosettaCodeData/Task/Null-object/Perl/null-object-1.pl

print defined($x) ? 'Defined' : 'Undefined', ".\n";