Perl script size of files

лучше просто воспользуйтесь find dir/ -size +Nc,
где N требуемый размер.

spasibo, no delo v tom, chto v protsesse raboty programmy sozdaetsja derevo katalogov, kotorye soderzhat bol'shoe kolichestvo files. Skript nuzhen dlja togo, chtoby vydeljat' poimenno files, kotorye men'she opredelennogo razmera i posylat' etu informatsiju v log-file. Esli v protsesse raboty programmy generjatsja files men'she X, ob etom dolzhno byt' izvestno. Ja znaju kak eto sdelat' v perle dlja odnogo file :) no dlja bol'shogo kolichetsva v dir/subdir/subdir, chestno govorja ne znaju. Marina

perldoc File::Find

> spasibo, no delo v tom, chto v protsesse raboty programmy sozdaetsja
> derevo katalogov, 

не понимаю, в чем проблемма. find найдет все, что нужно.
как вам уже сказали, можете использовать File::Find.

или просто:

sub files_less_then_in
{
    my ($size, @where) = @_;
    qx(find @where -size -${size}c);
}

@files = files_less_then_in 10000, qw(/bin /sbin);

Spasibo ogromnoe!

perldoc -f -X на предмет -s.