В shell используйте globbing и команду wc
.
ls -d /some/path/*.ext | wc -l
Или вы можете сделать это в Perl с помощью glob()
#!/usr/bin/env perl
use strict;
use warnings;
my($path, $ext) = @ARGV;
my @files = glob "$path/*$ext";
printf "Found %d files in %s with extension %s\n", scalar @files, $path, $ext;