use strict;
use warnings;
-use Syntax::Highlight::Perl;
+use Syntax::Highlight::Perl::Improved ':FULL';
my $color_table = {
'Variable_Scalar' => 'color:#080;',
'Line' => 'color:#000;',
};
-my $formatter = Syntax::Highlight::Perl->new();
+my $formatter = Syntax::Highlight::Perl::Improved->new();
$formatter->define_substitution(
'<' => '<',