perl -e 'use Clone qw(clone); $a = \$b; undef $a; $c = clone $a;' #### 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