#!/usr/bin/perl -w
use strict; 

my $real_doc = 'path/to/actual/document.doc'; 

open WORD, '<', $real_doc or die "$real_doc: $!\n";
print "Content-type: application/octet-stream\n\n";
print while <WORD>;