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 '';
print $html;