У меня есть каталог/var/spool и внутри этого, каталоги с именем

a  b  c  d  e  f  g  h i  j  k  l  m  n  o  p q  r  s  t  u  v  x  y z

И внутри каждогосправочник писем "каталог под названием ""user и внутри этого, много каталогов называетсяauser1 auser2 auser3 auser4 auser5 ...

Каждый пользовательский каталог содержит почтовые сообщения, а имена файлов имеют следующий формат: 2. 3. 4. 5. и т. Д.

Как я могу перечислить файлы электронной почты для каждого пользователя в каждом каталоге следующим образом:

    /var/spool/a/user/auser1/11.
    /var/spool/a/user/auser1/9.
    /var/spool/a/user/auser1/8.
    /var/spool/a/user/auser1/10.
    /var/spool/a/user/auser1/2.
    /var/spool/a/user/auser1/4.
    /var/spool/a/user/auser1/12.
    /var/spool/b/user/buser1/12.
    /var/spool/b/user/buser1/134.
    /var/spool/b/user/buser1/144.

и т.п.

Мне нужны эти файлы, а затем открыть каждый файл для изменения заголовка и тела. Эта часть у меня уже есть, но мне нужна первая часть.

Я пытаюсь это:

dir = "/var/spool";

opendir ( DIR, $dir ) || die "No pude abrir el directorio $dirname\n";
while( ($filename = readdir(DIR))){
    @directorios1 = `ls -l "$dir/$filename"`;
    print("@directorios1\n");
}
closedir(DIR);

Но не работает так, как мне это нужно.