package Acme;
use parent 'Clone';
…

##</code><code>##

 
my $object = Acme->new;
my $copy = $object->clone;