package Foo::Bar; use base("Foo"); sub some_method_in_foo_that_i_override { my $self = shift; # stuff } 1;