sub show_template {
    my $t_file = $q->param('template');

    require HTML::Template;
    my $t = HTML::Template->new_file($t_file);
    # and don't fill in any values
    print $q->header(), $t->output;

    exit(0);
}
[download]

Makeshifts last the longest.