use strict;
use warnings;
use LWP::Simple;
my $node = shift or die 'gimme a node #';
my $html = get("http://www.perlmonks.org/index.pl?node_id=$node");
my ($exp) = $html =~ m{
Experience: | \s+(\d+)};
my %level = (
initiate => 0,
novice => 20,
acolyte => 50,
scribe => 100,
monk => 200,
friar => 500,
abbot => 1000,
bishop => 1600,
pontiff => 2300,
saint => 3000,
);
print "You made Monk!!!\n" if $exp >= $level{monk};
|