#!/usr/bin/perl -w
use strict;
my $dir = "/home/sitedirectory/document_repository/";
my $file = "company_logo.eps";
my $mimetype = "application/postscript";
open(FILE,"$dir$file"); 
binmode(FILE, ':raw');          
my $output; 
my $buffer; 
while (read(FILE,$buffer,1024)) { 
        $output .= $buffer;
} 
my $length = length($output);
print qq{Content-Disposition:attachment; filename="$file"\n\n}; 
print "Content-type: $mimetype\n\n";
print qq{Content-Length: $length\n\n};
print $output;
exit;