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++;
  }

##</code><code>##

Leaked CODE(0x81f6e8c)
Leaked ARRAY(0x81f6e98)
Use of uninitialized value in join or string at eyemod.pm line 196.
Use of uninitialized value in join or string at eyemod.pm line 196.
detail: [ ]
Leaked ARRAY(0x81f6ea4)
Use of uninitialized value in join or string at eyemod.pm line 196.
Use of uninitialized value in join or string at eyemod.pm line 196.
Use of uninitialized value in join or string at eyemod.pm line 196.
Use of uninitialized value in join or string at eyemod.pm line 196.
Use of uninitialized value in join or string at eyemod.pm line 196.
detail: [    ]
Leaked ARRAY(0x81f6ed4)
Use of uninitialized value in join or string at eyemod.pm line 196.
detail: [  eyemod.pm eyemod import]
Leaked ARRAY(0x8148be0)
detail: []
Leaked ARRAY(0x8149708)
detail: []