perl -le'print join(",", (@_=@{[localtime]}[5,4,3,2,1,0])
                    && ($_[0]+1900, $_[1]+1, @_[2..5]))'