$ perl -MMyClass -e 0 Subroutine get_subclass_object redefined at MyClass.pm line 5. $