use Text::MicroMason;
  $interpreter = Text::MicroMason->new( -HTMLTemplate );
  $template = "bar <TMPLVAR NAME="var1"> foo <TMPLVAR NAME="var2"> bar BAAAR!";
  $subroutine = $interpreter->compile( $template );
  $output = $subroutine->( var1=>"Guybrush", var2=>"Purcell" );