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

##</code><code>##

eval {
	...
;1 } or do { # catch
	...
}