eval {
    # irgendwas, was sterben könnte
    ...
};
if ($@) {
    # gerade nochmal gerettet
    print ...;
}