Select Code to Download

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

print "Content-Type: text/plain\n";
print "Content-Length: $filesize\n";
...
open FILE, $filename or die "can't open $filename: $!\n";
print while <FILE>;
close FILE;

use CGI::Simple;
use strict;
...

open FILE, $filename or die "Can't open $filename: $!\n";
print while <FILE>;