use strict;
use warnings;
use LWP::Simple;

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

open($fh,">",$file) or die "Unable to open file '$file':  $!";
my $data = get($url);
print $fh $data;
close($fh);