Select Code to Download

Select or download this

#!/usr/bin/perl

...
$parser->register_ns_prefix('lc_itunes', 'http://www.itunes.com/dtds/p
+odcast-1.0.dtd');
my $rss = $parser->parse_string($feed);
print $rss . "\n";

Select or download this

$ ./test.pl 
  % Total    % Received % Xferd  Average Speed   Time    Time     Time
+  Current
                                 Dload  Upload   Total   Spent    Left
+  Speed
100  164k  100  164k    0     0  1267k      0 --:--:-- --:--:-- --:--:
+-- 1271k
XML::RSS::Parser::Feed=HASH(0x618af3317380)