use strict; use XML::Generator; sub get_ns { my $in = shift; my $ns = substr($in, 1, index($in, ":")); $in =~ s/<$ns/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 get_ns($gen->rss([itunes => "http://www.itunes.com/dtds/podcast-1.0.dtd"], {version => '2.0'})) . "\n";