您可以使用以下Perl脚本来统计目录下的文件数：
#!/usr/bin/perl
use strict;
use warnings;
my $dir = "/path/to/directory"; # 替换为您要统计的目录路径
opendir(my $dh, $dir) or die "无法打开目录: $!";
my @files = grep { -f "$dir/$_" } readdir($dh);
closedir($dh);
my $file_count = scalar @files;
print "目录 $dir 中的文件数为: $file_count\n";
将/path/to/directory替换为您要统计的目录路径，然后运行以上脚本即可统计目录中的文件数。
