#Sub utemplate (use template)  Call only when ready to print.
sub utemplate {                                
   open(TEMPLATE,"/pathtotemplate/template.html") || die("Unable to acess template: $!"); #Open the template file
   my @template = <TEMPLATE>;                     #Read it
   close(TEMPLATE);                               #Close it
   my $template = join("",@template);             #Move it all into one variable
   $template =~ s/~/\\~/g;                        #Escape all ~ characters already present.
   eval("print qq~$template~;");                  #Process and print
}

1;