列出文件夹下所有目录的perl代码

#!/usr/bin/perl
opendir(TMP,'c:/')||die "can not open c:/:$!";
@files=grep(!/.[a-zA-Z]*$/,readdir TMP);
foreach $a(@files){
print $a."n";
}
closedir TMP;