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

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