package Child;
use base qw(Parent);

sub do_something { ... }

1;