package Foo; use base 'Clone::PP'; # And don't bother writing it yourself sub new { my $class = shift; my $self = { }; # Intitilze $self bless $self, $class; }