UNIX for Dummies Questions & Answers

my @fileholder;

open(EXCLFILE, "<", $file_path) or die "Unable to download file $file_path\n";
 binmode EXCLFILE;
 @fileholder = <EXCLFILE>;
close (EXCLFILE);

print "Content-Type:application/vnd.ms-excel\n";
print "Content-Disposition:attachment;filename=$file_path\n\n";
print @fileholder;

my $cgi = new CGI;

  open(DLFILE, "<$abs_path") || die "Unable to download file $abs_path\n";
  print $cgi->header(
    '-type' => "application/octet-stream; name=$filename",
    '-Content-Disposition' => "attachment; filename=$abs_path",
    '-Content-Transfer-Encoding' => "binary");
    binmode DLFILE;
    print while(<DLFILE>);
  close (DLFILE);

$abs_path = "/home/matrix/file.xls";
$filename = "file.xls";

use strict;
use CGI qw /:standard /;
my $query = new CGI;
print $query->header(-type=>"application/vnd.ms-excel",-attachment=>"path/file.xls",-Content_length=>" -s path/file.xls");
open (FH, "path/file.xls");
print $_ while <FH>;
close (FH);

AddType application/vnd.ms-excel .xls