use MIME::Base64;

sub encode {
   my ($compressed) = @_;
   my $encoded = encode_base64($compressed);
   $encoded =~ s{\+}{-}g;
   $encoded =~ s{\/}{_}g;
   return $encoded;
}

sub decode {
   my ($encoded) = @_;
   $encoded =~ s{-}{+}g;
   $encoded =~ s{_}{/}g;
   my $compressed = decode_base64($encoded);
   return $compressed;
}