#!/usr/bin/perl -w

use strict;
use XML::Generator;

my $gen = XML::Generator->new(
    conformance => 'strict',
    escape      => 'always',
    pretty      => 2,
    encoding    => 'UTF-8',
    version     => '1.0',
    namespace   => [itunes => "http://www.itunes.com/dtds/podcast-1.0.dtd"],
);

print $gen->xmldecl('standalone' , undef);
print	$gen->rss([itunes => "http://www.itunes.com/dtds/podcast-1.0.dtd"], {version => '2.0'});

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<itunes:rss xmlns:itunes="http://www.itunes.com/dtds/podcast-1.0.dtd" version="2.0" />