sub send_file {
    my ($cgi, $dir, $file) = @_;
    my $path = "$dir$file";
    
    $cgi->charset('');
    #$|=1;  ### THIS FOULS UP THE DOWNLOAD "SAVE AS..." DIALOGUE
    $|=0;   #SO LET'S BE EXPLICIT ABOUT SETTING THIS CORRECTLY!
    
my $fn;
open ($fn, "< :raw", $path) or die "Sorry, unable to open the file: $tempfile. $!\n";
binmode($fn);
my @document = <$fn>;
close $fn;
        my $len;
        $len += length $_ for @document;

print"Content-type:application/x-download\n";
print"Content-disposition:attachment; filename=$file\n";
print"Content-length:$len\n\n";
binmode STDOUT;

print @document;

    return;
    
} #END SUB send_file