#!/usr/bin/perl
use strict;
use warnings;
use XML::RSS::Parser::Lite;
use LWP::Simple;

my $xml =
get( "http://twitter.com/statuses/user_timeline/14693823.rss" );

die "No connection to MarsPhoenix. Try later.\n" unless defined $xml;

my $rss = new XML::RSS::Parser::Lite;
$rss->parse( $xml );

print $rss->get( 'title' ) . " - Last ten updates from MarsPhoenix:\n";

foreach my $number ( 0..9 )
{
    my $item = $rss->get( $number++ );
    print $item->get( 'title' ) . "\n";
}