#!/usr/local/bin/perl -w

$FILE= "/home/username/cgi-bin/test/file.exe";

open(FH, $FILE) || die "Can't access file";

print "Content-Type: application/octet-stream\n\n";
print "\n";

while(<FH>) {
    print; 
}