my $zip = Archive::Zip->new();
my $member = $zip->addFile( 'logfile.log' );
my $status = $zip->writeToFileNamed( 'dated_filename.zip' );
die "error somewhere" if $status != AZ_OK;

##</code><code>##

my $tempDate = getDate();
my $outfile = $tempDate . ".zip";
sub getDate {
    my $date;
    my($day, $mon, $year) = (localtime)[(3,4,5)];
    $date = $mon . $day . $year;
    return $date;
}