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\" ];"