use Win32::IE::Mechanize qw( );
my $mech = Win32::IE::Mechanize->new();
my $url = 'http://www.vitoco.cl/test-ref';
$mech->get($url);
print $mech->content();