package MyParent::MyChild;
use strict;
no strict "refs";
use Carp qw(croak);
use parent qw(MyParent);

my $VERSION = .01;

sub new {
    my ($class) = @_;
    my $self = {};
    bless $self, $class;
    return $self;
}