use LWP::UserAgent;
use HTML::Entities;
use HTTP::Cookies;
use open ':utf8';
use utf8;
use locale;
use POSIX 'locale_h';
setlocale(LC_ALL, 'en_US.UTF-8');

my $ua = LWP::UserAgent->new;
$ua->default_header(
	'Accept-Language' => 'en-US',
	'Accept-Charset' => 'utf-8',
	'Accept' => 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*'
);
#$ua->parse_head(0);
my $req = HTTP::Request->new(GET => 'http://www.yahoo.com');
print $ua->request($req)->as_string;