my $seconds = $duration % 60;
  $duration /= 60;
  my $minutes = $duration % 60;
  $duration /= 60;
  my $hours = $duration % 24;
  my $days = $duration;