package myObj;
use strict;

sub new {
        return bless {}, $_[0];
}

sub one {
        print "One\n";
}

sub two {
        print "Two\n";
}

sub three {
        print "Three\n";
}

1;