As it is, getFiles doesn't work on windows. This rewrite works on my win98 box.

sub getFiles {
    my %list;
    my ($dir, $min_size) = @_;
    die "$dir is not a directory.\n" unless -d $dir;

    opendir my $dir_handle, $dir || die "Cannot open directory $dir: $
+!";
        foreach (grep -f, readdir $dir_handle) {
            my $size = (stat)[7];
            $list{$_} = $size if $size >= $min_size;
        }

    die "No files in $dir\n" unless keys %list;
    return %list;
}
[download]

Call it with:
my %files1 = getFiles($dir1, $min_size);

HTH,
Charles K. Clarkson