use strict;
use warnings;
use WWW::Mechanize;

my $mech=WWW::Mechanize->new(noproxy => 0);
my $URL="http://in.yahoo.com/";
$mech->get($URL);

$mech->follow_link(text => 'Mail');

my $file=$mech->content();
open FILE_OUT , ">output.html" or die "$!";
print FILE_OUT $file;
close FILE_OUT;