Select Code to Download

sub convert {
    my ($template_name) = @_;
...
       print $fh $template;
    }
}

sub replace {
    my ($template_name, $params) = @_;
...
);

replace($template_name, \%params);