sub doSomethingHere {
	my $duration = shift;

	my $MINUTE = 60;
	my $HOUR   = 60 * $MINUTE;
	my $DAY    = 24 * $HOUR;
	my $WEEK   = 7  * $DAY;

	my $weeks = int($duration / $WEEK);
	$duration -= $weeks * $WEEK;

	my $days = int($duration / $DAY);
	$duration -= $days * $DAY;

	my $hours = int($duration / $HOUR);
	$duration -= $hours * $HOUR;

	my $minutes = int($duration / $MINUTE);

	my $seconds = $duration - $minutes * $MINUTE;

	return ($weeks, $days, $hours, $minutes, $seconds);
}