eval {
    Module::That::Dies::die_here();
    1;
} or do {
    warn "Error from Module::That::Dies:\n$@\n";
};