print qq{Accept-Ranges: bytes\n};
print qq{Content-Transfer-Encoding: 'binary'\n};
print qq{Content-Length: $file_size\n};
print qq{Content-Type: $file_mime;\n};
print qq{Content-Name: "$file_name"\n};
print qq{Content-Disposition: attachment; filename="$path"\n\n};
open(FILE,$path);
binmode(FILE);
my $line;
while (defined ($line = <FILE>)) {
print $line;
}
close(FILE);

my $file_size = -s $path;

print qq{Accept-Ranges: bytes\n};
print qq{Content-Transfer-Encoding: binary\n};
print qq{Content-Length: $file_size\n};
# print qq{Content-Type: $file_mime;\n};
print qq{Content-Type:application/x-download\n};
print qq{Content-Disposition: attachment; filename="$file_name"\n\n};
open(FILE,$path);
binmode(FILE);
my $line;
while (defined ($line = <FILE>)) {
print $line;
}
close(FILE);

unless (-e $path) {
..show an error, and die here.
}

print $IN->header(
-type => $mimetypes->{$ext},
"Content-Disposition" => \("inline; filename=$file_path; size=$file_size"),
"Content-Length" => $file_size
);

print $IN->header({ '-force' => 1,
'-type' => 'application/octet-stream',
'-Content-Disposition' => \"filename=$filename",
});

my $file_size = -s $file_path;


if ($file_size < 10) {
print $IN->header();
print "The specified file could not be found. $file_path - type: $mimetypes->{$ext}";
exit;
}

binmode STDOUT;

print $IN->header({ '-force' => 1,
'-type' => 'application/octet-stream',
'-Content-Disposition' => \"filename=$destsite-$ID.doc",
});

open (F, "<$file_path") || die "ERROR: $!";
binmode F;
{
local $\;
while (read(F, my $chunk, 4096)) {
print $chunk;
}
}
close (F);