perl -le '$a = undef or 1; print $a'             
perl -le '$a = undef || 1; print $a'