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

say $number // "unknown";