#!/usr/bin/env perl

use strict;
use warnings;

package Module::That::Dies;

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

package main;

Module::That::Dies::die_here();

print "main continues ...\n";

##</code><code>##

RIP Module::That::Dies at ./pm_11143055_trap_mod_errors.pl line 8.

##</code><code>##

#!/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";

##</code><code>##

Error from Module::That::Dies:
RIP Module::That::Dies at ./pm_11143055_trap_mod_errors.pl line 8.

main continues ...