perl -wle '$x=42; print $x'