query code
######################################
....

#get data
$sth->execute();
my $columns = $sth->{NAME};
my $data = $sth->fetchall_arrayref();

#create Spreadsheet
my $workbook  = Spreadsheet::WriteExcel->new('Report.xls');
my $worksheet = $workbook->add_worksheet("DTicket");

#add format
my $format = $workbook->add_format();
$format->set_bold();

#write data
$worksheet->write_row('A1', $columns, $format);
$worksheet->write_col('A2', $data);

....

############################
other code