编写一个perl脚本，可以打印文件夹所有文件的名字

这里提供一个简单的Perl脚本，可以打印文件夹中所有文件的名字：

#!/usr/bin/perl

use strict;
use warnings;

# 获取要遍历的目录
my $dir = shift || '.';

# 打开目录并遍历其中的文件
opendir(my $dh, $dir) || die "无法打开目录 '$dir': $!";
while (my $file = readdir($dh)) {
  next if $file eq '.' || $file eq '..';  # 忽略 "." 和 ".." 目录
  print "$file\n";                       # 打印文件名
}
closedir($dh);

将上述代码保存到一个名为`print_files.pl`的文件中，然后在命令行中执行以下命令：

perl print_files.pl /path/to/directory

其中`/path/to/directory`是要遍历的目录的路径。如果没有指定目录，则默认打印当前目录中的所有文件名。