perl -MScalar::Util=weaken -le 'while(1){my $x="";my $y=\$x;$x=\$y; weaken $x;}'