in reply to create zip without path struct

Use the optional second argument for the Archive::Zip::addFile method:

use File::Basename;

sub zipit(){
    my ($zipName,$memberName)=@_;
    my $zip = Archive::Zip->new();
    $zip->addFile( $memberName, basename($memberName) );
    my $zipstatus = $zip->writeToFileNamed($zipName);
}

[download]
The intelligent reader will judge for himself. Without examining the facts fully and fairly, there is no way of knowing whether vox populi is really vox dei, or merely vox asinorum. — Cyrus H. Gordon

In Section Seekers of Perl Wisdom