#!/usr/bin/perl -w

use strict;
use Compress::Zlib;

my $code = 'print "Test\n";' . "\n";
print uc (unpack 'H*', compress($code));
print "\n";