so this zips a single file. if you want to add multiple files to the archive you will have to loop these.

    @names = ("name1", "name2");
    $nameout = "$pathout\\AFJPWEB6_$anio$mes$dia\.zip";
    print "Comprimiendo ", $namein,"\n";
    my $zip = Archive::Zip->new() ;
    $zip->addFile( $_ ) for @names;
    my $status = $zip->writeToFileNamed( $nameout );
        die "error somewhere" if $status != AZ_OK;
[download]