Select Code to Download

use Prompt::Timeout;
use constant TIMEOUT => 5;
...
{
    upload($_);
}

while (defined ($_ = readdir($eh)))

while (readdir($eh))

my $pattern = join '|', map "(?:$_)", @filetypes;

my $pattern = join '|', @filetypes;

...
{
    next if /~$/ || -d || !/$pattern/i;
    ...