my $wbk = Spreadsheet::WriteExcel->new ($xls);
my $wks = $wbk->add_worksheet ();
my $fmt = $wbk->add_format (align => "center", num_format => "dd-mm-yyyy");
$wks->write ($row, $col, $date, $fmt);