perl -MPOSIX=strftime -lne 'print strftime("%Y %m %d %w %H\t1",localtime($_))'