package Foo;
# save as Foo.pm
sub new {
    my ( $class, %params ) = @_;
    return bless( \%params, $class );
}

sub compute {
    my ( $self, $data ) = @_;
    return "compute() called with: $data";
}

1;