}
#unzip file
- system('unzip', '-P', '$password', '-q',
+ system('unzip', '-P', $password, '-q',
"$tmpdir/${filename}_resp.zip", '-d', $tmpdir);
if(! -f "$tmpdir/${filename}_resp.xml") {
warn "failed to extract ${filename}_resp.xml from ${filename}_resp.zip\n";
print OUT $text;
close OUT;
- system('zip', '-P', '$password', '-q', '-j',
+ system('zip', '-P', $password, '-q', '-j',
"$tmpdir/$filename.zip", "$tmpdir/$filename.xml");
die "failed to create zip file\n" if (! -f "$tmpdir/$filename.zip" );