#!/usr/bin/perl
use warnings "all";
use strict;

use LWP;
use XML::LibXML;

my $ua = LWP::UserAgent->new();
my $response = $ua->get('http://www.yourWebsite.com');
my $tree = XML::LibXML->load_xml(string => $response->content, recover=>2);
print $tree->toString();