您可以使用以下Perl脚本来统计目录下的文件数：

#!/usr/bin/perluse 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替换为您要统计的目录路径，然后运行以上脚本即可统计目录中的文件数。