Perl. как определить каталог ли это или файл?

читаю в массив содержимое каталога командой readdir(). каким способом отделить файлы от подкаталогов в этом каталоге? как определть, что из прочитанного есть файл, а что подкаталог?
          if(-f "$FILES") { datei}
          elseif (-d "$FILES") { katalog}
          else { chert ego snaet chto}        
ок, спасибо, но возник встречный вопрос прочитал директорию так:
@name = grep {! -d $_} readdir(DIR) ;
возникла двойственная ситуация: при текущем каталоге все проходит нормально, читаются только файлы, но при сложном каталоге типа с:\temp\ имена каталогов все равно попадают в массив.
prover' chto ty delaesh' -d na to chto nuzhno :
vmesto $_ dolzhno byt' "$dir/$_"
$dir - eto to na chto ty delal opendir($dir,DIR)
ok. spasibo vse zarabotalo!
сделал конкатенацию ($DIR.$_ ) и все пошло.
что характерно, чтобы открыть текущий каталог надо выполнить opendir($dir, "."),
а вот для доступа к отдельному файлу эту точку (вначале, как путь) указывать нельзя... (маленькая, но заморочка)

TopList Rambler's Top100