Есть ли какой-либо модуль Perl, который может помешать мне добавить "или умереть" во все, что может потерпеть неудачу?

Я пишу код, который запускает всевозможные внешние команды, а также различные команды файловой системы, которые могут выйти из строя.

Есть ли какой-нибудь модуль, который может сэкономить мне трудность добавления or die ко всему, что может быть неудачно?

Я хотел бы иметь возможность обернуть следующее в чем-то, чтобы вместо:

mkdir $dirname or die "can't create directory $dirname";

system("some external command") or die "can run some external command";

Я получаю:

some_wrapper_code {
    mkdir $dirname;

    system("some external command");
}

так что если mkdir не работает, он скажет мне, что сбой был в mkdir, а если system не удалось, он скажет мне, что сбой был в system.