#!/usr/bin/perl -w
use strict;

use Carp;
use LWP::Debug qw(+ -conns);
use LWP::UserAgent;
use XML::Simple;
use Data::Dumper;

my $ua = LWP::UserAgent->new;

my $res = $ua->get('http://perlmonks.org/?displaytype=xml;node_id=3333');

if (!$res->is_success) {
    croak("Failed!\n".$res->as_string);
}

print Dumper XMLin($res->content);