use strict;
use warnings;
use Archive::Tar;
use Devel::Leak;


my $handle;

my @results = qw ( u1.tar.gz u2.tar.gz u3.tar.gz u4.tar.gz u5.tar.gz u6.tar.gz u7.tar.gz u8.tar.gz u9.tar.gz u10.tar.gz );
foreach my $tar_file ( @results ) {
  my $count = Devel::Leak::NoteSV($handle);
  print $count,"\n";
  my $x = Archive::Tar->new or die "Failed to get tar object";
  my $extracts = $x->read($tar_file);
  print "extracts $extracts\n";
  $x->clear;
  undef $extracts;
  print Devel::Leak::CheckSV($handle), "\n";
}