perl -MLWP::Simple -e "getprint 'http://atys.ryzom.com/api/character.php?key=FR521366R0REA16F998&part=items'"

##</code><code>##

use LWP::Simple;
my ($html, @found, $line);
my $url = 'http://atys.ryzom.com/api/character.php?key=FR521366R0REA16F998&part=items';
$html = get("$url");
unless (length($html)) {
		warn "Unable to load page for '$url'\n";  }

my $headers = HTTP::Headers->new(
      "Content-type" => "text/xml",
	  "charset" => "UTF-8");
 	 print $headers->as_string() . "\n";
	 #print '<?xml version="1.0" encoding="utf-8"?>';
print $html;