#!/usr/bin/perl -w
use strict;

use LWP::Simple;
use XML::RSS::Parser;
use FileHandle;

my $xml = LWP::Simple::get('http://weather.nearperfect.com/weather/world.rss/010/c00032');
#print $xml;
my $p = XML::RSS::Parser->new;
print $p->errstr."\n";

my $fh = FileHandle->new('/path/to/some/rss/file');
my $feed = $p->parse($xml);
 
# output some values 
my $feed_title = $feed->query('/channel/title');
print $feed_title->text_content;
my $count = $feed->item_count;
print " ($count)\n";
foreach my $i ( $feed->query('//item') ) { 
	my $node = $i->query('title');
	print '  '.$node->text_content;
	print "\n"; 
}