use Devel::Leak;
warn Devel::Leak::NoteSV(my $handle);
{my$a={};$a->{a}=$a;}
warn Devel::Leak::CheckSV($handle );
__END__
6599 at - line 2.
new 003F9A6C :
new 003F9B1C :
6601 at - line 4.