perl -e"system qq[ $^X -e\"\$n=123; print \$n\" ];"
123