#!/usr/bin/perl -w

package Apache::ExcelTest;

use Apache::Constants qw(:common);
use Apache::Request;
use Spreadsheet::WriteExcel;

sub handler{
  my $r = Apache::Request->new(shift);

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

  tie *XLS => 'Apache';
  binmode(*XLS);
  my $workbook  = Spreadsheet::WriteExcel->new(\*XLS);
  my $worksheet = $workbook->addworksheet();
  $worksheet->write("A1","Hello, World");
  $workbook->close;
}

1;