my $r;
{
   open(ZIP,"-|","/usr/local/bin/unzip 
        -P '·······' -p cache/$zipname $fname")
        || die "unzip failure";
   local($/)=undef;
   $r=<ZIP>;
   close(ZIP);
};