$ perl -I. -MMyChild -Mstrict -wE 'MyChild->new->test' Subroutine test redefined at Bar.pm line 4. Bar.pm