use IO::Compress::Zip qw(zip $ZipError);

zip [$0] => 'test.zip', Name => 'test.txt'
 or die  "Cannot zip: $ZipError\n";