If you're willing to slurp in the entire filelist, you can also do

my $num_of_files = scalar @{[<*>]};
[download]