You might try Test::Memory::Cycle to look for issues.
How could Test::Memory::Cycle help finding inefficient (and insecure) code like @data = `cat $dirtoget/decrypt/sample.log`; that reads probably huge log files into memory?
The most complex data structures used in this script, apart from the $seen{$_}++ variant in get_dirs(), are arrays of strings. There is not a single trace of using references that could create circular references. How could Test::Memory::Cycle help here?
Alexander
--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)
|