perl -E '$*=1;'
$* is no longer supported at -e line 1.