Use Time::Seconds from the Time::Piece distribution. It allows you to do:

my $secs = Time::Seconds->new(1332443);
printf "%d days, %d hours, %d min, %d sec\n",
      $secs->days, $secs->hours, $secs->mins, $secs->secs;
[download]