Select Code to Download

#! /usr/bin/debugperl -w
use strict;
...
}
my $count = Devel::Leak::CheckSV($foo);
print "End $count\n";

2600
2601
...
2609
new 0x5a18b0 : 
End 2610

debugperl -V
Summary of my perl5 (revision 5 version 8 subversion 8) Characteristic
+s of this binary (from libperl): 
...
                        PERL_MALLOC_WRAP THREADS_HAVE_PIDS USE_64_BIT_
+ALL
                        USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
                        USE_PERLIO USE_REENTRANT_API