#!/usr/local/bin/perl -w
use strict;
my $FILE= "/home/username/cgi-bin/test/file.exe";
print "Content-Type: application/octet-stream\n\n";
open(FH, $FILE) || die "Can't access file: $_\n";
print <FH>;
close(FH);