in reply to Date format
Since no-one has given a solution with Date::Manip yet, I'll give one. I assume that the missing space before the year in your example is just an error.
use Date::Manip; print UnixDate("now", "%F %R\n"); [download]