open(FILE, $file);
binmode(FILE); print "Content-type: application/x-unknown\n\n"; 
print < FILE >;
close FILE;