#!/usr/bin/perl
use warnings;
use strict;
use Devel::Leak;

my ($count,$last,$handle);
$last=0;
foreach (0..2000) {
        $count = Devel::Leak::NoteSV($handle);
        print "C01:  " . $count ."\t";

        print "C02:  " . Devel::Leak::NoteSV($handle) . "\t";
        print "Diff: " . ($count-$last) . "\n";

        $last = $count;
}

print "Check memory usage.In my box is around 230mb,return to finish";
<>