use Convert::Base32 qw();
use Compress::Zlib qw();
$data=Convert::Base32::encode_base32(Compress::Zlib::compress($text));