use WWW::Mechanize;
my $ua=WWW::Mechanize->new();
$ua->get($url);
$ua->save_content('filename.html') if $ua->success();