use strict;
use CGI::Pretty qw(book chapter); # for pretty XML
my $c = new CGI;

print $c->book(
    {-title=>"Programming Perl", -authors=>" Larry Wall, Tom Christiansen, Jon Orwant"},
    $c->chapter({-number=>1},"An Overview of perl"),
    $c->chapter({-number=>2},"Bits and Pieces"),
    $c->chapter({-number=>3},"Unary and Binary Operators"),
);

##</code><code>##

<book title="Programming Perl" authors=" Larry Wall, Tom Christiansen, Jon Orwant">
	<chapter number="1">
		An Overview of perl
	</chapter>
	 <chapter number="2">
		Bits and Pieces
	</chapter>
	 <chapter number="3">
		Unary and Binary Operators
	</chapter>
</book>