Time::Duration looks like it fits the bill nicely.

#!/usr/bin/perl -w
use strict;
use Time::Duration;
my $seconds = 163546;
print duration_exact($seconds),"\n";
__DATA__
1 day, 21 hours, 25 minutes, and 46 seconds
[download]