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

##</code><code>##

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

##</code><code>##

sub slurp {
     my ($self,$stuff)=@_;
     $self->get($stuff,"SLURP");
}
sub get {
#.....
        if ($slurp) { 
# difference..
        } else {
#...
        }
}