#!/usr/bin/perl
use XML::Feed;
use Data::Dumper;
    
my $rssurl      = "http://librivox.org/rss/4273";
my $feed = XML::Feed->parse(URI->new($rssurl))
        or die XML::Feed->errstr;
print $feed->title, "\n";
print $feed->description, "\n";
for my $entry ($feed->entries) {
    #       print "entery is [$entry]\n";
    #       print Dumper( $entry );
            print $entry->title, "\n";
            print $entry->{'http://www.itunes.com/dtds/podcast-1.0.dtd'}{'duration'} . "\n";
            print $entry->duration . "\n";
}

##</code><code>##

Conquest Over Time by SHAARA, Michael
    <p>Pat Travis, a spacer renowned for his luck, is suddenly quite out of it. His job is to beat his competitors to sign newly-Contacted human races to commercial contracts...
    
    But what can he do when he finds he's on a planet that consults astrology for literally every major decision - and he has arrived on one of the worst-aspected days in history?
    
    Michael Shaara, later to write the Pulitzer-winning novel "The Killer Angels", wrote this story for Fantastic Universe in 1956. (Summary by Mark F. Smith)</p>
1 - Section 1
    
Can't locate object method "duration" via package "XML::Feed::Entry::Format::RSS" at ./get_feed.pl line 15.

##</code><code>##

print Dumper( $entry );

##</code><code>##

    $VAR1 = bless( {
                     'entry' => {
                                  'enclosure' => {
                                                 'length' => '9.6MB',
                                                 'url' => 'http://www.archive.org/download/conquest_over_time_1005_librivox/conquestovertime_1_shaara_64kb.mp3',
                                                 'type' => 'audio/mpeg'
                                               },
                                  'link' => 'http://www.archive.org/download/conquest_over_time_1005_librivox/conquestovertime_1_shaara_64kb.mp3',
                                  'item' => '
    
    
    
    
    
    
    
    
    
    
    
    ',
                                  'http://www.itunes.com/dtds/podcast-1.0.dtd' => {
                                                                                  'explicit' => 'No',
                                                                                  'duration' => '00:20:00',
                                                                                  'block' => 'No'
                                                                                },
                                  'title' => '1 - Section 1'
                                },
                     '_version' => '2.0'
                   }, 'XML::Feed::Entry::Format::RSS' );