#this creates one spreadsheet but I need 2 spreadsheets
use Spreadsheet::WriteExcel;
my $r = new cgi;
#    print "Content-type: application/vnd.ms-excel\n\n";
# Create a new workbook called simple.xls and add a worksheet
my $workbook  = Spreadsheet::WriteExcel->new("simple.xls");
my $worksheet = $workbook->addworksheet();