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

my ($url, $ref);
my $lastMsgTime=0;

while (1) { 
        #Get the latest chatterbox contents. 
    $url = get("http://www.perlmonks.org/index.pl?node_id=15834");
        #Parse it.
    $ref = XMLin($url, forcearray=>1);
        #Print the contents.  
    foreach my $msg (@{$ref->{message}}) { 
        if ( $lastMsgTime < $msg->{time}) { 
            #this has a new line so the users name is above thier text
            print "$msg->{author}: $msg->{content}\n\n"; 
            $lastMsgTime = $msg->{time};
            print "\a";
        }
    }
    $ref=undef;
    sleep 30;
}
[download]