package Objects::Parent; sub new { bless {}, shift; } sub doSomething { print "Something\n"; } 1;