use Devel::GC::Helper;
my $leaks = Devel::GC::Helper::sweep;
   my $cnt = 0;
  for my $leak (@$leaks) {
      print "Leaked $leak\n";
      print "detail: [@$leak]\n" if ($cnt);
      $cnt++;
  }