You could also use caller(). In the example bellow, I have renamed the package name from B.pm to Bb.pm -- so we don't load from the official B namespace.

package Bb;

sub foo { 
        die "your data is screwed at @{[ caller ]}" ; 
}
[download]