>type script.pl
use M1 qw( );
sub test2 { M1::test3(); }
sub test1 { test2(); }
test1();

>type M1.pm
package M1;
use M2 qw( );
sub test4 { M2::test5(); }
sub test3 { test4(); }
1;

>type M2.pm
package M2;
use Carp qw( croak );
sub test5 { croak("ribbit"); }
1;

>perl script.pl
ribbit at M1.pm line 3