#!/usr/bin/perl
use warnings;
use strict;
use Time::Piece;
use File::Spec::Functions qw/catfile/;
use IO::Compress::Zip qw/zip $ZipError/;

# Timestamp
my $now = localtime;
$now -= 60*60;
$now = $now->strftime("%d%b%Y_%H00");

# Where zip file is to be stored
my $arc = catfile("/path/to/archive","$now.zip");
die "Error: $arc already exists, refusing to overwrite" if -e $arc;

# Where csv files are found.
chdir "/path/to/directory" or die "chdir: $!";

# Zipping files found and storing into archive
my @files = glob("*-$now.csv");
warn "Warning: No files to ZIP found\n" unless @files;
zip \@files => $arc or die "Cannot create zip file: $ZipError" ;

# Deleting csv files 
unlink(@files)==@files or warn "Failed to unlink some files: $!";