I'll give you one hint that, while TIMTOWTDI, this way below is the right way :-). Namely, you create the HTML::Template every single time that you call Send_Header. Now, if you're not using mod_perl (wha..?!), this isn't really a problem, but if you are, you should create the HTML::Template for the header once for each server thread that you start. Namely that this:

sub Send_Header {
    my $header_tmpl = HTML::Template->new(
        filename => 'header.tmpl'
    );
    $header_tmpl->param(...);
    ...
[download]

is not as good as:

my $PACKAGE::header_tmpl = HTML::Template->new(
   filename => 'header.tmpl');
... 
sub Send_Header {
   $PACKAGE::header_tmpl->param(...);
   ...
}
[download]

since in the latter version, you only create the tmpl variable once. I'm not sure how cache'ing works in HTML::Template, for but Template Toolkit 2, for example, this can be very important; if it only has to cache once, that's a significant CPU savings.

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain
It's not what you know, but knowing how to find it if you don't know that's important