$string = join ":", map { sprintf "%02d", $_ } (gmtime($seconds))[7,2,1,0];