Select Code to Download

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 fore
+ach keys %$c'
196

perl -MStorable=dclone  -le '%a=(chr 256 =>1);$c=dclone \%a; print ord
+ foreach keys %$c'
256