#!/usr/bin/perl -w

use strict;
use XML::Atom::Client;
use XML::Atom::Entry;

my $api = XML::Atom::Client->new;
my $feed = $api->getFeed('http://news.google.ca/news?hl=en&ned=ca&q=murder&ie=UTF-8&output=atom');
my @entries = $feed->entries;

foreach my $entry ( @entries ) {
        print 'Content:';
        print $entry->content;
        print ' | Title:';
        print $entry->title;
        print "\n";
}

1;