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