Решено: Perl, проверка файла на размер

[noize]

Доброго дня. Сегодня столкнулся с такой непонятной проблемой. Имеется простенький скрипт вида

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
opendir(DIR,'/home/noize');
while (my $i = readdir(DIR)) {
        if (-s $i) {
                print "файл $i\n";
        }
}
closedir DIR;]

По идее, скрипт должен печатать файлы с ненулевым размером из директории /home/noize. Но по факту скрипт выдаёт только "файл ." "файл ..", т.е. опция -s не работает. Почему так?
os Debian Lenny
uname -a: Linux desktop 2.6.26-2-686 #1 SMP Wed May 12 21:56:10 UTC 2010 i686 GNU/Linux
perl -v: v5.10.0

[noize]

Сорри, тупанул. Нужно было в скрипт добавить chdir '/home/noize' перед opendir. Тему можно закрыть.