use Syntax::Highlight::Perl;

    my $color_table = {
        'Variable_Scalar'   => 'color:#080;',
        'Variable_Array'    => 'color:#f70;',
        'Variable_Hash'     => 'color:#80f;',
        'Variable_Typeglob' => 'color:#f03;',
        'Subroutine'        => 'color:#980;',
        'Quote'             => 'color:#00a;',
        'String'            => 'color:#00a;',
        'Comment_Normal'    => 'color:#069;font-style:italic;',
        'Comment_POD'       => 'color:#014;font-family:' . 'garamond,serif;font-size:11pt;',
        'Bareword'          => 'color:#3A3;',
        'Package'           => 'color:#900;',
        'Number'            => 'color:#f0f;',
        'Operator'          => 'color:#000;',
        'Symbol'            => 'color:#000;',
        'Keyword'           => 'color:#000;',
        'Builtin_Operator'  => 'color:#300;',
        'Builtin_Function'  => 'color:#001;',
        'Character'         => 'color:#800;',
        'Directive'         => 'color:#399;font-style:italic;',
        'Label'             => 'color:#939;font-style:italic;',
        'Line'              => 'color:#000;',
    };
    my $s = Syntax::Highlight::Perl->new();
    $s->define_substitution('<' => '&lt;',
                            '>' => '&gt;',
                            '&' => '&amp;');
    while ( my ( $type, $style ) = each %{$color_table} ) {

        $s->set_format($type, [ qq|<span style=\"$style\">|,
                                '</span>' ] );
    }
print "<pre>";
print $s->format_string('perl code');
print "</pre>";