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

$