open(ZIP, ">$filename");
binmode ZIP;
print ZIP $response->content;
close(ZIP);

print "Content-Disposition: attachment; filename=$filename\n";
print "Content-type: application/zip\n\n";