Select Code to Download

my (@dat) = ();

my @filters;
...
}

close($DATF);

use threads;
use Thread::Queue;

...
        }
    }
}