#!/usr/bin/perl
use warnings;
use strict;
use CGI::Pretty qw(:standard);
$CGI::Pretty::INDENT=" ";
push @CGI::Pretty::AS_IS,"LI";
my $cgi=new CGI::Pretty;
print header,
start_html("Pretty HTML Demo"),
ol(li(["First","Second","Third"])),
end_html;