moo@cow[3595]~>perl -MData::Dumper -le "print [ localtime() ]->[-1]"
1