use Compress::Zlib;
$code = q#print "Here I will put some nice code to be uncompressed and eval()ed latter";#;

$code = unpack 'H*', Compress::Zlib::memGzip( $code );
print pack 'H*', Compress::Zlib::memGunzip( $code );
# Here I get something very strange...