Jeff is right. the rewinddir function is the way to do it. The fixed code looks something like this:

opendir(MYDIR, $dirname);
while (condition)    #condition ~ 1, loop basically forever
{
 my @mail = grep { $_ ne '.' and $_ ne '..' } readdir MYDIR;
 
 foreach (@mail) {
    # do stuff
    # delete each file
 }
 
 undef(@mail);                  # @mail shuld be empty now
 rewinddir( MYDIR );            # so rewind the directory
 sleep(1);                      # give cpu a break   
}
# more stuff...
closedir(MYDIR);
[download]

This code works fine, but you have INDIR instead of MYDIR ( why? ).. either way change

 my @mail = grep { $_ ne '.' and $_ ne '..' } readdir INDIR;
[download]

to

 my @mail = grep { $_ ne '.' and $_ ne '..' } readdir MYDIR;
[download]

- Have Fun, XDB19