#!/usr/bin/perl

use strict;
use LWP::Simple;
use CGI;

my $cgi = CGI->new();
print $cgi->header;
print $cgi->start_form(-method=>"GET"),"What is your nick? ",$cgi->textfield('me'),$cgi->br;
print "Who do you want to be?",$cgi->textfield('wannabe'),$cgi->br,$cgi->submit(-value=>"Click"),$cgi->end_form;
print $cgi->hr;
my $me = $cgi->param("me");
my $wannabe = $cgi->param("wannabe");
if ($me && $wannabe)
{ my $xp = getxp($wannabe)-getxp($me);
  print $xp," XPs til $wannabe" if $xp > 0;
  print "You passed $wannabe by ",-$xp if $xp < 0;
  print "You are on same xp as $wannabe" if $xp == 0; 
}

sub getxp { 
my $user = shift;
my $page = get("http://www.perlmonks.org/index.pl?node=$user");
my ($xp) = $page =~ /<TR><TD>Experience:<\/TD><TD> <B>(\-?\d+)<\/B><\/TD><\/TR>/;
return $xp;
}