>I am trying to writ a script that would search a system for certain file
>sizes and if so e-mail  me.

check out File::Find on cpan.  You can do something like...

use File::Find;

sub checkSize {

        push @files, $_ if (-s == $specialSize);
}

find (\&checkSize, @dirs);

if (defined @files) { mailMe (@files) }


Peter C.

Reply via email to