use XML::RSS::Parser;
use strict;

sub {
	my( $said, $pm ) = @_;
	my $feed_uri = $said->{recommended_args}->[0];

	print "Couldn't find a url to fetch!" and return
		unless $feed_uri;
	
	my $parser = XML::RSS::Parser->new;
	my $feed = $parser->parse_uri( $feed_uri ) #TODO check for http:// schema
		or ( print "Couldn't parse $feed_uri because", $parser->errstr and return );
	
	print +($feed->query("//item/title"))[0]->text_content;

}

__DATA__
Returns the first headline from a specified RSS feed.