sub open_template {
   my $path = shift;
 
   my $data;  
   if(open(DATA, "< $path")) {
      local $/;
      $data = <DATA>;
      close DATA;
   }
   return $data;
}