通过perl 我们可把一个目录下的所有文件打印出来：

 #!/usr/bin/perl -wT

use File::Copy;

use strict;

print "取文件,请输入文件路径:";

chomp(my $path = <STDIN>);

opendir DIR, $path;

my @dir = readdir DIR;

closedir DIR;

foreach my $file (@dir){

print "$file\n";

}