In the line

$template =~ s/%%DESCRIPTION%%/$description/;
[download]

you overwrite the contents of $template so that it no longer contains your %%DESCRIPTION%% tag. Therefore the the next time you try to execute this line, no substitution takes place.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>