package myFoo;

sub new {
     return {},"myFoo";
}

sub stuff {
}

1;

##</code><code>##

use myFoo;

my $f = new myFoo();

$f->stuff;