package MyObject; use strict; use warnings; use vars qw( @ISA ); BEGIN { push( @ISA, 'BaseObject' ); }; sub new { # Code here } # Follow up with some methods 1;