#!C:/strawberry/perl/bin/perl.exe
#
use strict;
use warnings;
use LWP::UserAgent;

my $url = 'http://atys.ryzom.com/api/character.php?key=FR521366R0REA16F998&part=items';

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

my $response = $ua->get($url);

if($response->is_success) {
    print $response->decoded_content;
} else {
    die $response->status_line;
}