Select Code to Download

sub new {
    my $class = shift;

    bless $self, $class;
}

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