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