#!/usr/bin/env perl

use strict;
use warnings;

package Module::That::Dies;

sub die_here { die "RIP Module::That::Dies" }

package main;

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

print "main continues ...\n";