#!/usr/bin/perl
use strict;
use warnings;
require Archive::Zip;
Archive::Zip->import( qw(AZ_OK COMPRESSION_LEVEL_BEST_COMPRESSION) );

my $zip = Archive::Zip->new();
my $file_member = $zip->addFile($0);
$file_member->desiredCompressionLevel(COMPRESSION_LEVEL_BEST_COMPRESSION);