Perl: как отдать Excel-файл из CGI-сценария

 http://agapoff.name/perl-kak-otdat-excel-fajl-iz-cgi-scenariya.html

#!/usr/bin/perl
use Spreadsheet::WriteExcel;
use Encode;
use CGI;

my $cgi = new CGI;

# Добавляем заголовки Content-Type, Content-Disposition и Expires
print $cgi->header(
        -type    => 'application/xls',
        -attachment => 'alert.xls',
        -expires => '-1d'
);

# Будем писать в бинарный поток
binmode(STDOUT);
my $workbook = Spreadsheet::WriteExcel->new(\*STDOUT);

# Создаём новую страницу
my $worksheet = $workbook->add_worksheet('page1');

# Пишем значения, в общем симулируем полезные действия

my ($row, $col);
$worksheet->write($row, $col++, "Hello");
$worksheet->write($row, $col, "World");
$row++;
$col=0;
$worksheet->write($row, $col++, decode_utf8("Привет"));
$worksheet->write($row, $col, decode_utf8("Мир"));

# Закрываем файл
$workbook->close();