8 $header{content_type} = "text/html; charset=utf-8";
10 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
11 "http://www.w3.org/TR/html4/loose.dtd">
15 <meta http-equiv="content-type" content="<:= $header{content_type} :>">
16 <title>sheet page source code</title>
17 <style type="text/css">
18 body { color: #000; background: #FFF }
19 .synComment { color: #888 }
20 .synConstant { color: #008 }
22 .synIdentifier { color: #804 }
23 .synStatement { font-weight: bold }
25 .synSpecial { color: #408 }
26 .synError { font-weight: bold; background-color: #F00; color: #FFF }
27 .synTodo { background-color: #FF0 }
34 my $source = $ENV{PATH_INFO};
37 print "<h1>Source of $source</h1>\n";
39 require Text::VimColor;
41 my $hl = Text::VimColor->new(file => $source);