Select Code to Download

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

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

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