http://qs321.pair.com?node_id=230472

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; }