use DirHandle;

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