Select Code to Download

require DBI;
require DBI::ODBC;

use DBI;
use DBI::ODBC;

find sub
{
...
            push(@FoundFiles, $File);
      }
},$Directory;