#!/usr/local/bin/perl

use strict;
use warnings;

use HTML::Template;

my $tmpl = do{local $/;<DATA>};

my $t = HTML::Template->new(scalarref => \$tmpl);

$t->param(
  vehicle_uc => q{BUS},
  vehicle_lc => q{bus},
);

print $t->output;

__DATA__
sam is riding an uppercase <TMPL_VAR vehicle_uc>
sam is riding an lowercase <TMPL_VAR vehicle_lc>