package MyChild;

sub X 
{
 my $self = shift;
 $self->SUPER::X;

 # do stuff particular to the child

}