Isso não é uma resposta, mas talvez seja uma alternativa aceitável:
alias p='perl; echo hit control-d again; cat > /dev/null'
Então, se o seu script perl sair prematuramente, você irá colar o restante em / dev / null; se o script perl for bem-sucedido, você verá seu lembrete amigável e pressionará control-d para sair do cat
catcher.