#! /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