sub new {
    my $class = shift;

##</code><code>##

    bless $self, $class;
}

##</code><code>##

perl -Mstrict -we'my $vanilla = bless {}, "Im a Pudding"; print ref $vanilla, $/'
Im a Pudding