#!/usr/bin/perl -w

use strict;
use Compress::Zlib;

# Load input
my $input = "";
open my $file, "<crack20.pl" or die $!;
while( my $line = <$file> )
{
   next if $line =~ /^#/;
   $line =~ s/\s//sg;
   $input .= $line;
}
close $file;
print STDERR "Input size = ", length($input), "\n";

# Compress input
my $data = pack "u*", compress($input);
$data =~ s/\s//sg;
$data =~ y/'"/pq/;
print STDERR "Compressed size = ", length($data), "\n";

print "#!/usr/bin/perl -w\n",
      "use Compress::Zlib;\n",
      "(\$d = '$data') =~ s/\\s//sg;\n",
      "\$d =~ y/pq/'\"/;\n",
      "eval uncompress(unpack('u*',\$d));\n";