package Devel::larryk; use base qw(DB); use strict; Devel::larryk->new()->register(); # create instance and register sub new { bless {} } sub init { my $self = shift; $self->ready(); print "larryk initialised\n"; } 1; #### perl -d:larryk foo.pl