#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use CGI::Pretty qw(-oldstyle_urls -no_xhtml);

my $q = CGI::Pretty->new();

print $q->start_html(-title => 'Sample page');
print $q->h1({-class => 'main'}, 'Sample page');
print $q->p('Hello, World');
print $q->p({-class => 'detail' }, 'Second para' );
print $q->end_html();