use Archive::Zip;

my $zip = Archive::Zip->new();
$zip->addFile($0,'test.txt');
$zip->writeToFileNamed('test.zip');