half-baked pseudo-code
#!perl -wl -MData::Dumper

sub hohum {
    return bless {}, 'Something::Interesting';
}
print Dumper(hohum);

__END__
more bad code