#!/usr/bin/perl -w

use strict;
use Compress::Zlib;

my $code = 'print "Test\n";';
if( $#ARGV >= 0 )
{
   $code = join '', <>;
}

my $uu = pack 'u*', compress($code);
$uu =~ y/\40-\47\n@\\/a-k/;
print $uu, "\n";