sub Pack{
    my ($strsrc,$arc,$strdst)=@_;
    my @srclist=split(',',$strsrc);
    my @dstlist=split(',',$strdst);
    my $zip = Archive::Zip->new();
    print "Prepare file list\n";
    while($src=shift(@srclist)){
          $dst=shift(@dstlist);
            if ($src ne ""){
               (-f $src) || warn "\a\ncan't find <$src>\n";
               print "|$src| > |$dst|\n";}
            
            $member = $zip->addFile($src,$dst);} 

     if (defined($member)){
         $member->desiredCompressionMethod( COMPRESSION_BEST );
         truncate ($dst, 0 );}
     print "\nZIP >>> $arc\n";
     if ($zip->writeToFileNamed("$arc")!=AZ_OK){
         print "\a\a\rIO ERROR\n\a";
         warn  "\a\a\rIO ERROR\n\a";
         $arc="";}
     return ($arc);}