sub new {
    my ($class) = @_;
    my $self = new <module-name>;
    use Devel::Peek;   # insert this
    Dump $class;       # into your program
    bless $self, $class;
    return $self;
}