use MyClass;
use Storable qw(dclone);
my $object = MyClass->new();
my $clone = dclone($object);
# NB.: Untested