#!/usr/bin/perl
use warnings;
use strict;
use CGI::Pretty qw( :standard );
print( header(),
start_html( 'Demo' ),
p( 'Some', 'random', 'text' ),
p( { -align => 'right' }, 'right', 'aligned text' ),
p( { -align => 'center' },
[ 'on', 'separate', 'lines' ] ),
end_html() );