#! /usr/bin/debugperl -w
use strict;
use warnings;
use Devel::Leak;
my $foo;
my $countdown = 10;
while($countdown--) {
my $count = Devel::Leak::NoteSV($foo);
print "$count";
<>;
my $bar;
$bar = \$bar;
}
my $count = Devel::Leak::CheckSV($foo);
print "End $count\n";
####
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
new 0x5a18b0 :
End 2610
##
##
debugperl -V
Summary of my perl5 (revision 5 version 8 subversion 8) Characteristics of this binary (from libperl):
Compile-time options: DEBUGGING MULTIPLICITY PERL_IMPLICIT_CONTEXT
PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_ALL
USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
USE_PERLIO USE_REENTRANT_API