c:> perl -le "print defined($x)//'<undef>'; print defined($x)||'untrue'"

untrue

c:>