Select Code to Download

sub getFiles {
    my %list;
...
    die "No files in $dir\n" unless keys %list;
    return %list;
}