#!/usr/bin/perl

use strict;
use warnings;

use LWP::UserAgent;

my $url = "http://www.perlmonks.org/?displaytype=xml;node_id=609084";

# Create a user agent
my $ua = LWP::UserAgent->new;

# Set the user agent string - useful for spelunking logs
$ua->agent( "myapp" );

# Get the data
my $res = $ua->get( $url );

# Check the outcome of the response
if( $res->is_success ) {
  print $res->content, "\n";
}