<:
use utf8;
use strict;
use warnings;
our $VERSION = 'v1.0';
$header{content_type} = "text/html; charset=utf-8";
:>
sheet page source code
<:
my $source = $ENV{PATH_INFO};
$source =~ s{^/}{};
$source ||= $0;
print "Source of $source
\n";
require Text::VimColor;
print "\n";
my $hl = Text::VimColor->new(file => $source);
print $hl->html;
print "
\n";