{
   package MyClass;
   sub new  { my ($class) = @_;
              my $self = {};
              return $self; }
   sub test { print("Hi!"); }
}

my $o = MyClass->new();
$o->test();