#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use XML::Simple;

my $base = 'http://www.perlmonks.org';
my $other_users = XMLin(get("$base/?node_id=15851"));
foreach my $user ( @{$other_users->{user}} ) {
  my $xp = XMLin( get("$base/?node_id=16046&for_userid=$user->{user_id}") )->{XP}->{level};
  printf "% 2s %s\n", $xp, $user->{username};
}