Select Code to Download

print<<EOF
...
remaining text goes here
EOF

print "Content-type: text/plain\n\n";
print "Done-Captured $number-files total\n";