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