use Tk::Wizard;
use Tk::TextHighlight;
my $wiz = new Tk::Wizard;
$wiz->addPage (
  sub {
    my $aa = q/return $self->parserError($txt); #for debugging/;
    $wiz->_text_frame(
      {
      -title => 'hmm',
      -boxedtext => \$aa,
      -syntax => 'Perl'
      }
    )->pack(-expand => 1, -fill => "both");
  }
);

##</code><code>##

my $t = $frame->Scrolled("TextHighlight" ... syntax => ( $args->{ -syntax } || 'Perl' )