$ perl -e'print `history` // die($? == -1 ? $! : "\$?=$?")'
No such file or directory at -e line 1.


##</code><code>##

$ perl -e'sh -c print `history` // die($? == -1 ? $! : "\$?=$?")'

$

##</code><code>##

$ sh -c history

$