package B;

use strict 'refs';
use warnings;
use Devel::Leak;

my $count = Devel::Leak::NoteSV($handle);
my $self  = shift @_;
my $temp  = $$self{'business'};
print "The count is: $count\n";
my $now = Devel::Leak::CheckSV($handle);
# more code here
print "The count is now: $now\n";