use strict; 
use CGI ':standard';
use CGI::Carp qw/fatalsToBrowser/; 
use DBD::ODBC;
use strict;
use List::Util qw[min max];
#use warnings;

use Spreadsheet::WriteExcel;

my $filename = "mydata.xls"; # generated on-the-fly
print "Content-disposition: attachment;filename=$filename\n";
print "Content-type: application/vnd.ms-excel\n\n";

my $workbook  = Spreadsheet::WriteExcel->new("-");
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0, "Hello");
$worksheet->write(0, 1, "world");