#!./localperl/bin/perl
#
use strict;
use warnings;

use Devel::Leak;

my $handle;
my $count = Devel::Leak::NoteSV($handle);
my $countdown = 10;
while($countdown--) {
  my $bar;
  $bar = \$bar;
}
Devel::Leak::CheckSV($handle);
print "End $count\n";