Instead of using die, use croak from the Carp package. It’s designed for exactly this situation.

## This is B.pm ##
package B;
use Carp 'croak';
sub foo {
    croak "Your data is screwed";
}
[download]