在Windows机器中读取当前工作目录中的文件（ActivePerl）

Question

如何阅读当前工作目录中的文件？

我已将getcwd（）用于当前工作目录。从这个位置我需要阅读所有文件。我使用了readdir（），但它没有用。

我的代码：

use Cwd;
my $loc = getcwd();
$loc =~ s/\//\\/g;
print "location: $loc\n";
opendir(READ, "$loc");
my @files = readdir(READ);
close READ;
print "@files\n";