*************************************

use strict;

use LWP::Simple;
use XML::RSS;
use Time::localtime;
my $rssFeed = 'http://wiitracker.com/rss.xml';

while (1) {

my $data = get($rssFeed);
my $rss = XML::RSS->new();
$rss->parse($data);
my $tm = localtime;
foreach my $item ( @{ $rss->{items} }) {

printf ("%02d:%02d:%02d - $$item{title}\n", $tm->hour, $tm->min, $tm->sec);
if ($$item{title} =~ m/250/ || $$item{title} =~ m/amazon/i) {
system("beep -r 20 -l 20");
}
}
sleep(10);
}

****************************************