hilite.pl

use STD;
use Syntax::Highlight::Perl6;

my @input = <>; 
my $input = join "", @input;

# Creates the Perl6 syntax highlighter object
my $p = Syntax::Highlight::Perl6->new(
    text => $input
);

# Prints html that can be embedded in your pages
print $p->snippet_html;