#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;
use Crypt::SSLeay;
use Data::Dumper;

my $mech =WWW::Mechanize->new(stack_depth=>12);
$mech->agent_alias('Windows Mozilla');
$mech->get(qq{http://www.etfsecurities.com/en/etfscalculations/etfsmsl.aspx?region=us});
print $mech->content();
exit;