print ("Content-Type:application/x-download\n");
print "Content-Disposition: attachment; filename=$file\n\n";