$ perl -MO=Deparse,-p -e'$foo = shift || 1'
($foo = (shift(@ARGV) || 1));
-e syntax OK