Select Code to Download

use POSIX qw(strftime);

...
                );
  return strftime($format[$f], localtime);
}

use POSIX qw(strftime);

...
  if ($format == 9) {return strftime('%d/%m/%Y', localtime);}
  return strftime(undef, localtime);
}