Help for this page
>type script.pl use M1 qw( ); ... >perl script.pl ribbit at M1.pm line 3
>perl -MCarp=verbose script.pl ribbit at M2.pm line 3 ... M1::test3() called at script.pl line 2 main::test2() called at script.pl line 3 main::test1() called at script.pl line 4