There you go a modified version of Corion's script using HTML::Template.