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

##</code><code>##

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

##</code><code>##

  $string =~ s/\G00://g;