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