use LWP;
use Compress::Zlib;

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);
my $gzipped_content = $r->content;
print Compress::Zlib::memGunzip($gzipped_content);