use Date::Calc qw( Today_and_Now Month_to_Text );
my ($year,$month,$day, $hour,$min,$sec) = Today_and_Now();
printf "%02d%.3s%02d:%02d:%02d:%02d",
  $day,
  lc Month_to_Text($month),
  $year % 100,
  $hour,
  $min,
  $sec
;