Select Code to Download

print "Content-Type: application/x-unknown-download_file\nContent-Disp
+osition: attachment\; filename=\"".$fileOBJ->data('filename')."\"\nCo
+ntent-Length: $size\n\n";

open(my $DLFILE, $file);
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
+$blksize,$blocks) = stat($DLFILE);
...
while ($bytes = read($DLFILE,$buffer,16384)) {
  print $buffer;
}