my $nfiles = scalar grep -f, glob("*");