Select Code to Download

$ perl -wMstrict -le 'print system("exit 3");print "<$!>"'
Can't exec "exit": No such file or directory at -e line 1.
-1
<No such file or directory>

$ which exit
$ perl -wMstrict -le 'print system(q{/bin/bash -c "exit 3"});
...
768
<>
3

$ perl -wMstrict -le 'system("pstree -A $$ ")==0 or die;'
perl---pstree
$ perl -wMstrict -le 'system("pstree -A $$;")==0 or die;'
perl---sh---pstree