##
perl -e 'use Clone qw(clone); $a ={}; undef $a; $c = clone $a;'
##
##
perl -e 'use Clone qw(clone); undef $a; $c = clone $a;'
##
##
perl -e 'use Clone qw(clone); $a =""; undef $a; $c = clone $a;'
##
##
perl -MClone=clone -le '%a=(chr 256 =>1);$c=clone \%a; print ord foreach keys %$c'
196
##
##
perl -MStorable=dclone -le '%a=(chr 256 =>1);$c=dclone \%a; print ord foreach keys %$c'
256