Ich hab das mit einem speziellen Modul gemacht. Kann mich an den genauen Namen nicht mehr erinnern. Durch das Modul hab ich nur eine Zeile benoetigt und alles war fertig.
Such schonmal hier
Wenn Du noch Probleme hast, sag ich dir den genauen Modulnamen und schreib ein kleines Demoscript.

Gruß

rPerl