package Mypackage;

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub test {
    return "from test";
}

1;