Perl获取指定目录中的文件

<span style="font-size:18px;">use strict;

my $path="D:\\perl";
my $keyfile;
my $keytime;

opendir(dir, $path) or die "Cannot open it:$!";
print "\n";
while(my @count= grep -f, readdir(dir)) # -f表示选出目录中的文件
{
	closedir(dir);
	foreach $keyfile (@count)
	{
		chomp($keyfile);
		$keytime=(stat($keyfile))[9];
		print $keyfile,"    ",$keytime,"\n";
	}
}</span>