#!perl
use strict;
use Spreadsheet::ParseExcel::Utility qw(ExcelFmt);
print ExcelFmt("dd-mmm-yyyy", 41770);