my $tpi = TPI->new( dsn => 'tpd:Mason:/my/files/' );

    $tpi->register( 'TPD::HTML_Mason', shebang => '#!mason' );
    $tpi->register( 'TPD::TT', shebang => '#!tt' );
    $tpi->register( 'TPD::HTML_Template', shebang => '#!htmpl' );
    $tpi->register( 'TPD::PETAL', shebang => '#!petal' );
 
    $tpi->variables( author => 'a', title => 'b' );

    print $tpi->interpolate( <<'END_HERE' );
#!mason

Welcome <% $author %>
END_HERE

    print $tpi->interpolate( <<'END_HERE' );
#!htmpl

Welcome <TMPL_VAR author>
END_HERE