#!/usr/bin/perl

use strict;
use warnings;

use Date::Calc qw(Delta_DHMS Time_to_Date);

my @secs = qw(1000 10000 100000 1000000 86400 86399 3600 3599 0 31394 2941 -2941 -86399);

for (@secs) {
  printf("%s%02d:%02d:%02d:%02d\n", $_ < 0 ? '-' : '', Delta_DHMS(Time_to_Date(0), Time_to_Date(abs($_))));
}

##</code><code>##

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))));
}