Use strftime from POSIX (granted it only prints the day-of-week as only a single digit so it's not 100% equivalent if (e.g.) you need fixed columns)

perl -MPOSIX=strftime -lne 'print strftime("%Y %m %d %w %H\t1",localti
+me($_))'
[download]