use strict;
use warnings;
use LWP::UserAgent;
use WWW::Mechanize;
use Win32::FileOp;


#use Win32::FileOp qw(ShellExecute);
#	ShellExecute("http://finance.yahoo.com");
my $mech = WWW::Mechanize->new();
$mech->get("http://finance.yahoo.com");
my $filename = 'c:yahoo.html';
$mech->save_content ( $filename );