package Trivial;
sub new {
   my $class = shift @_;
   ...
   return bless $self, $class;
}

sub some_method {
   my $self = shift @_;
   ...
}
...

# in your program that uses Trivial:

my $instance = Trivial->new(..);
my $instance->some_method(..);