Select Code to Download

    return $count - 2;     #maybe not the best way of removing . and .
+.

sub isEmpty3 {
    return undef unless -d $_[0];
...
    my $count = grep { ! /^\.{1,2}/ } readdir $dh; # strips out . and 
+..
    return $count;
}