use 5.010;
use LWP::UserAgent;
use URI::URL;
use LWP::Debug qw(+);

my $browser = LWP::UserAgent->new();
$browser->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322)');
my $url = url 'http://www.investway.com';
my $resp = $browser->get($url);
open my $htmlFile, '>', 'c:\\temp\\temp5.html';
print $htmlFile $resp->{_content};