#!/usr/bin/perl -wT
use strict;
use LWP::Simple;
use XML::Simple;

my $node    = shift || 200_001;
my $url     = "http://perlmonks.org/?node_id=$node&displaytype=xml";
my $xml     = get($url) || die "Can't get $url";
my $parsed  = XMLin($xml);
my $created = $parsed->{'created'};

if ($parsed->{id} == $node) {
  print "Node $node was created at $created\n";
} else {
  print "Data doesn't match node ($parsed->{id} != $node)\n";
}