#!/usr/bin/perl 
use strict; 
use warnings; 
use Syntax::Highlight::Perl;  
 
##### 
 
my $code = <<'CODE'; 
my $var = 1; 
print $var; 
CODE 
 
my $colours = 
{ 
    Variable => 'red' 
}; 
 
##### 
 
my $formatter = Syntax::Highlight::Perl->new( ); 
 
while ( my ( $type, $colour ) = each ( %$colours ) ) 
{ 
    $formatter->set_start_format( $type, "[$colour]" ); 
    $formatter->set_end_format( $type, "[/$colour]" ); 
} 
 
print $formatter->format_string( $code );

my $var = 1 
print $var;