#!/usr/bin/perl -w

use strict;
use XML::Atom::Feed;
use XML::Atom::Entry;
    
my $xml_url = 'http://feeds2.feedburner.com/oreilly/perl';
my $feed = XML::Atom::Feed->new($xml_url);

foreach my $entry ($feed->entries()) {
   my $title = $entry->title();
   my $author = $entry->author()->name();
   my $content = $entry->content()->content();
   my $link = $entry->link()->href();
   my $published = $entry->published();
   
   &save_to_mysql($title,$author,$content,$link,$published);
}

exit;