package MyModule;

sub new { bless {}, shift }
sub foo { "do some foo stuff" }
1;

##</code><code>##

use MyModule;
my $o = new MyModule;

$o->foo();