#! /usr/bin/perl -w
use strict;
use warnings;
use Devel::Leak;

while(1) {
  my $count = Devel::Leak::NoteSV(my $foo);
  print "$count";
  <>;
  my $bar;
  $bar = \$bar;
}