use strict;
use warnings;
use WWW::Mechanize;
my $mech=WWW::Mechanize->new();
my $URL="http://in.yahoo.com/";
$mech->get($URL);
my $file=$mech->content();

open FILE_OUT , ">output.html" or die "$!";
print FILE_OUT $file;
close FILE_OUT;