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

my $zip = zip [$0] => 'test.zip', 
Name => 'test.txt', 
exTime => [$atime, $mtime, $ctime] or die;