#!/usr/bin/perl -w

use LWP::Simple;
use XML::Twig;
my $twig = XML::Twig->new();
$twig->parse(get 'http://www.frequencyyouth.blogspot.com/atom.xml');
my @entries = $twig->get_xpath('entry');
foreach my $entry (@entries)
{
  my @title = $entry->get_xpath('title');
  print "Found ", $_->text(), "\n" for @title;
  my @content = $entry->get_xpath('content');
  print " -> ", $_->text(), "\n" for @content;
}