use HTML::Mason;
my $interp = HTML::Mason::Interp->new ();
?????