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

##</code><code>##

perl -le '@_=localtime;
  print sprintf("%4d-%02d-%02d %02d:%02d:%02d",
                $_[5]+1900, $_[4]+1, @_[3,2,1,0])'
2006-07-18 15:57:36

##</code><code>##

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

##</code><code>##

@t = (+ 1900, + 1, , , , ) = @{[localtime]}[reverse 0..5];