print "Content-Disposition: attachment; filename=\"Setup.exe\" \n\n";
print"Content-type: application/octet-stream\n\n";
open FH, "setup.exe" or die (print"Error in saving $!");
while (<FH>) {
	print $_;
}
close FH;