Select Code to Download

opendir my $dh, '/path/to/files', or die ...;
while( my file = readdir $dh ) {
...
    # do something with the file
}
closedir $dh;

#! perl -slw
use strict;
...

$thread->join;