Select Code to Download

#!/usr/bin/perl -w

...

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

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