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

##</code><code>##

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

##</code><code>##

binmode STDOUT;