package MyPackgage;
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {};
bless $self, $class;
return $self;
}

sub AUTOLOAD {
my $self = shift;
return "ook?";
}