LWP, RSS, and Feeds

use LWP::Simple;

my $html = get('http://www.washington.edu');

# first, go out on the internet and get the RSS/XML data.
# we use LWP::Simple's get() subroutine to do this.
my $xml_data = get($xml_path);

# next create an XML::RSS object to parse the data, and parse the data
my $rss = XML::RSS->new;
$rss->parse($xml_data);

# now print the title, link, and description of each RSS item
foreach my $item (@{$rss->{'items'}}) {
    print qq{
Link is: $item->{'link'}  
Title is: $item->{'title'} 
Description is: $item->{'description'}
    };
}