perl -wle "\$x=42; print \$x"