Select Code to Download

print "Content-type: text/html\n";

print "Content-length: ", -s $file), "\n";

binmode STDOUT;