sub time_remaining {
  my $input_seconds = shift;
  return sprintf(("%s%02d:%02d:%02d:%02d", $input_seconds < 0 ? '-' : '', Delta_DHMS(Time_to_Date(0), Time_to_Date(abs($input_seconds))));
}