perl -e 'use POSIX qw(strftime);print strftime("%H:%M:%S\n",974,0,0,0,0,0);'