#!/usr/bin/perl -w
#use strict;
use warnings;
use warnings;
use XML::LibXML;
use LWP::UserAgent;
my $parser = XML::LibXML->new;

my $html_link = "http://www.marketwatch.com/story/brazil-mexico-stocks-face-quarterly-slides-2010-06-30?siteid=rss&rss=1";

$client = LWP::UserAgent->new();

my $capture = $client->get("$html_link", ":content_file" => "/tmp/file.html") || die "$!\n";
my $doc = $parser->parse_html_file("/tmp/file.html") || die "Error parsing: $!";

if (defined $doc )
{ print "HTML Doc OK.\n";}
else
{ print "HTML Doc BAD.\n";}