use LWP::Simple;

sub utemplate {
   my $template = get("http://yoursite.com/Templates/template.html");
   $template =~ s/~/\\~/g;
   eval("print qq~$template~;");
   die($@) if($@);
}

1;