perl -e 'use Clone qw(clone); $a = \$b; undef $a; $c = clone $a;'