you could probably simplify that a bit:

my ($day,$mo,$year) = (localtime)[3,4,5];

return sprintf '%02d-%02d-%04d', $day , $mo + 1, $year + 1900;
[download]