perl opendir -> опция -d не работает

Надо:

my $dir = "/some/dir";

opendir(DIRD, $dir) || die "$! $dir \n"; 
while (defined ($filename = readdir DIRD)) 
{ 
    next if -d "$dir/$filename"; 
    #           ^^^^^ (или делай chdir в каталог, который читаешь) 
    push(@files, $filename); 
} 
closedir(DIRD);

-----

Имхо так - наглядней.

opendir(DIR_D, $dir) || die "$! $dir \n"; 
@files = grep { -f "$dir/$_ } readdir(DIRD);
closedir(DIR_D);

s{"$dir/$_}{"$dir/$_"}

Спасибо за помощь, но при использовании строки "next if -d $filename" все равно не работает. А если использовать: $files = grep { -f "$dir /$_" } readdir(DIR); то все нормально.