$FILE = "/path/to/file";   
open (FH, $FILE) || die "Content-type: text/html\n\nCan't access file $FILE";
print "Content-type: application/octet-stream\n\n";
while(<FH>) { print <FH>; }
close (FH);