$ perl -le " print system( qw[ perl -e exit(2) ] )"
512

$ perl -le " print system( qw[ perl -e exit(2) ] ) >> 8"
2

$ perl  -MIPC::System::Simple=system -le " system( qw[ perl -e exit(2)
+ ] ) "
"perl" unexpectedly returned exit value 2 at -e line 1

$ perl  -Mautodie=system -le " system( q[perl -e exit(2) ] ) "
"perl -e exit(2) " unexpectedly returned exit value 2 at (eval 10) lin
+e 13
 at -e line 1
[download]