perl -MTime::Local=timelocal -e 'print scalar localtime timelocal qw(30 40 2 15 8 2012)';