Select Code to Download

        
        my $count1 =  Devel::Leak::NoteSV(my $handle);
...
        print "Count1 = '",$count1,"'\n";
        print "Count2 = '",$count2,"'\n";
        print "Diff = '",$count2-$count1,"'\n";

new 0x9d741e8 : 
...
Count1 = '594970'
Count2 = '594974'
Diff = '4'