#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( "http://hiphople.com/kboard" );
print $mech->content();

##</code><code>##

#!/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;