Select Code to Download

 
#!/usr/bin/perl
use strict;
...
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( "http://hiphople.com/kboard" );
print $mech->content();

#!/usr/bin/perl
use strict;
...
my $responce = $mech->get( "http://hiphople.com/kboard" );
my $output = "file1.txt";
gunzip $responce => $output;