my $ua = new LWP::UserAgent;
my $request = HTTP::Request->new('GET', 'http://groups.yahoo.com/');
$request->headers->header(
	accept_encoding => 'x-gzip, gzip, identity',
	user_agent => 'Mozilla/5.0 (compatible; Konqueror/3; Linux)',	
);
my $r = $ua->request($request);
print $r->content;