Select Code to Download

gzip file # compress file
gunzip file # decompress file
diff `which gzip` `which gunzip` #NONE!

$rv=$sth->get("var");
$value=$sth->slurp("var");

sub slurp {
     my ($self,$stuff)=@_;
...
#...
        }
}