Hi monks I did a program which will alert the user with TK message box, once a new node is posted in our perlmonks website under perlquestion category.

I don't know weather anyone did this already or not. I just did my part

If you have any suggestions please reply

use LWP;
use XML::Simple;
use Tk;

while(1)
{
    my $oldnode_id=0;
    if ( -e "./.perlmonks_recent" )
    {
        open (FILE,"./.perlmonks_recent") or die "Cannot open the file
+ .perlmonks\n";
        $oldnode_id=<FILE>;
        chomp $oldnode_id;
        close FILE;
    }
    my $browser = LWP::UserAgent->new;
    my $response = $browser->get('http://www.perlmonks.org/?node_id=30
+175;types=perlquestion');
    my $ticker=XMLin($response->content);
    my $currnode_id=$ticker->{NODE}[0]->{node_id};
    if($currnode_id > $oldnode_id)
    {
        my $mw=new MainWindow;
        $mw->withdraw();
        $mw->messageBox(-icon => 'info', -message =>"Hai Lakshmanan! T
+here is a new node titled $ticker->{NODE}[0]->{content}", -title => "
+$ticker->{NODE}[0]->{authortitle}", -type => 'ok');
        $mw->destroy();
    }
    open (FILE,'>',"./.perlmonks_recent") or die "Cannot open the file
+\n";
    print FILE $currnode_id;
    close FILE;
    sleep(300);
}
[download]