perl -le 'print join(",", @{[localtime]}[5,4,3,2,1,0])'  
106,6,18,15,22,52