$ perl -Mstrict -Mwarnings -MDateTime -E'
say DateTime->now->strftime("%a %b %d %T.%3N %Y")
'
Fri Mar 24 11:53:41.000 2017

##</code><code>##

$ perl -Mstrict -Mwarnings -MDateTime -E'
say DateTime->now->format_cldr("EEE MMM dd HH:mm:ss.SSS yyyy")
'
Fri Mar 24 11:54:35.000 2017

##</code><code>##

perl -Mstrict -Mwarnings -MTime::HiRes=time -MDateTime -E'
say DateTime->from_epoch( epoch => time )->format_cldr("EEE MMM dd HH:mm:ss.SSS yyyy")
'
Fri Mar 24 11:55:26.137 2017