cheers, sorted
>Try something like:
>
> use strict;
> use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
>
> my $zip = Archive::Zip->new();
> my $member = $zip->addFile("boris.pl");
> $member->desiredCompressionLevel(9);
> $zip->writeToFileNamed("boris.zip") == AZ_OK or die "Zip write error";
>
>
>
>Greg
Thanks
Jon
*****************************************
Jon Galliers [EMAIL PROTECTED]
Programmer Perl/C++/MySQL/DB2/Java
Design Net http://www.design.net.uk
Tel: +44(0)870 240 0088
Fax: +44(0)870 240 0099
*****************************************