perl -le 'print "@{[map{(localtime)[$c++]+$_}(0,0,0,0,1,1900,0,0,0)]}"'