#!/usr/bin/perl -w

print "Content-disposition: attachment;filename=test.xls\n";
print "Content-type: application/vnd.ms-excel\n\n";

binmode(STDOUT);
my $workbook  = Spreadsheet::WriteExcel->new('-');
my $worksheet = $workbook->addworksheet();
$worksheet->write("A1","Hello, World");
$workbook->close;