Perl 语言获得目录下的所有文件的文件名

opendir(DIR,'c:/');
while(my $file = readdir(DIR)){
print $file,"\n";
}
closedir(DIR)