my @zd = grep {!-d}map{"$zipdir/$_"}readdir(ZIPPED);