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