File::Find is a bit of overkill. A dirhandle would be much quicker:

use DirHandle;

my $dh = new DirHandle('/var/log/accounts/');
while (my $file = $dh->read()) {
    # do stuff
    ...
}
[download]

That should clear up your taint problems.

--
perl: code of the samurai