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

Makeshifts last the longest.