This is a small chatterbox watcher. It keeps me in the know when I run from machine to machine. It beeps everytime there is a new message, be warned, if you have a loud bell this can get annoying.
#!/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;
}