how to get correct date format?

[Luuk]

I have an excel-sheet with the value '08-01-2014' in cell A3

#!/usr/bin/perl
#
use Spreadsheet::Read;
my $book  = ReadData ("test.xlsx", dtfmt => "yyyy-mm-dd", parser => "xlsx" );
 
my $cell  = $book->[1]{A3};
print "$cell\n";
 

This code outputs: 1-8-14

How can i change output to 8-1-14 (or 08-01-2014)?

I prefer to do it without string parsing, and was hoping that the dtfmt parameter should do this....