perl -le '$a = (undef or "foo"); print $a'