perl -d 检察是否是目录

您好？
环境是WXP PERL5
在一个有文件也有目录的路径下，用-d检测目录不好用。检测下来应为目录的还是为文件。除了 。（当前） 和 。。（上级）外。
在线等解决。

贴代码，贴代码运行结果。

#!/usr/bin/perl
$filename='E:\doc\taobao';
opendir(FILE,$filename) or die('erroe not open e:/doc');
out_filename();
closedir(FILE);
sub out_filename
{
@news_fs=readdir(FILE);
foreach(@news_fs){
print "$_\n";
(-d $_) ? $d++ : $f++;
}
print "totle ----$f---- files ----$d---- dirs";#totle the files
}
结果是
F:\diree>perl test.pl
.
..
726909812385.jpg
iTrusPTA.exe
新建文件夹
新建文件夹 (2)
新建文件夹 (3)
totle ----5---- files ----2---- dirs