質問です。
エラーが出るのはなんでですか？

use strict;
use Cwd;

my $dir = Cwd::getcwd();

opendir DH, $dir or die "$dir:$!";
while (my $file = readdir DH) {
next if $file =~ /^\.{1,2}$/;
print $file, "\n";
}
closedir DH;

print "$file\n";

ｍｙの使い方が間違っていますか？