sub Send_Header {
    my %passed_args;
    @passed_args{'header', 'to', 'subject'} = @_;

    my $header_tmpl = HTML::Template->new(
        filename => 'header.tmpl'
    );
    $header_tmpl->param(
        %passed_args,
        date => substr(scalar gmtime time, 0, 10),
    ); 
    print $header_tmpl->output();
}

##</code><code>##

sub Send_Header {
    my %passed_args;
    @passed_args{'header', 'to', 'subject'} = @_;

    print HTML::Template->new(
        filename => 'header.tmpl',
        date => substr(scalar gmtime time, 0, 10),
        %passed_args,
    )->output();
}