#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;
use IO::Uncompress::Gunzip qw(gunzip);

my $mech = WWW::Mechanize->new( autocheck => 1 );
my $responce = $mech->get( "http://hiphople.com/kboard" );
my $output = "file1.txt";
gunzip $responce => $output;