Ayuda con modificación script. Perl

Buenas. Estoy implementando un servidor de correo electrónico con Postfix, MySQL.... y me gustaría adaptar un script de Perl para informar de las cuotas, pero mis pocos conocimientos de Perl me la están jugando y no hay manera.
El script original es el siguiente: http://puuhis.net/vhcs/quota.txt
El problema es que asume una estructura de directorios así:

Código: Seleccionar todo

# -----------/
#            |
#            |
#    home/vmail/domains/
#        |          |
#        |          |
#  example.com/  foo.com/
#                   |
#                   |
#           -----------------
#           |       |       |
#           |       |       |
#         user1/   user2/  user3/
#                           |
#                           |
#                        maildirsize


Y mi estructura de directorios es así:

Código: Seleccionar todo

# -----------/
#            |
#            |
#     home/vmail/
#            |
#            |
#      ----------------------------------------------
#        |                  |                     |
#        |                  |                     |
#  user1@domain.com   user2@domain.com    userx@domain2.org
#                                                 |
#                                                 |
#                                             maildirsize


Lo raro (o no) es que se ejecuta igualmente sin dar error, solo que no avisa a los usuarios que se están pasando de cuota y el reporte al postmaster siempre está vacío:

DAILY QUOTA REPORT:

----------------------------------------------
| % USAGE | ACCOUNT NAME|
----------------------------------------------

---------------------------------------------

Si resulta muy lioso adaptarlo ya buscaré otro método mas sencillo para hacerlo.
Gracias.