open(PIPE, '-|:unix', '/usr/bin/zip', '-T', $zipfile, @to_zip);