#!/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";
}