use strict; use Win32::IE::Mechanize; my $iemech = Win32::IE::Mechanize->new( visible => 1); $iemech->get('http://feeds.reuters.com/~r/reuters/topNews/~3/84952673/newsarticle.aspx'); my $html = $iemech->content; print $html; ####