#!/usr/bin/perl
use strict;
use warnings;

use XML::Atom::Stream;

my $url = shift || "http://updates.sixapart.com/atom-stream.xml";

my $client = XML::Atom::Stream->new(callback => \&callback, debug => 1, reconnect => 1);
$client->connect($url);

sub callback {
    my $feed = shift;
    my $entry = ($feed->entries)[0];
    print $entry->title .
        ($feed->author ? " (by " . $feed->author->name . ")" : '') . "\n",
        "  ", $entry->link->href, "\n";
    print "  (body: ", length($entry->content->body), " bytes)\n";
}