Select Code to Download

use File::Find;
my $DIR = "/tmp/logs/";
...
close RECORDS;

find(\&queries, $DIR);