Select Code to Download

#!/usr/bin/perl
use strict;
...
$tmpl->param(divname => 'div-test');
$tmpl->param(divs    => \@loopParams);
print $tmpl->output();

Content-Type: text/html; charset=ISO-8859-1

...
        </div>
    </body>
</html>