Anonymous

#!/usr/bin/perl -wuse 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"; }