Help for this page
perl -e"system qq[ $^X -e\"\$n=123; print \$n\" ];" 123
C:\test>perl -e"close STDOUT; system qq[ $^X -e\"$n=123; print \$n\" ] +;"