use WWW::Mechanize;

my $url = "http://www.bbc.co.uk";
my $todays_data = "D:\\Documents and Settings\\My Documents\\test_mech.txt";

my $mech = WWW::Mechanize->new();
$mech->get( $url, ':content_file' => $todays_data ) or die "$!";