<%$days|'00'%> days <%$hours|'00'%>:<%$minutes|'00'%> <%INIT> my $MINUTE = 60; my $HOUR = $MINUTE*60; my $DAY = $HOUR * 24; my $WEEK = $DAY * 7; my $days = int($Duration / $DAY); $Duration = $Duration % $DAY; my $hours = int($Duration / $HOUR); $hours = sprintf("%02d", $hours); $Duration = $Duration % $HOUR; my $minutes = int($Duration/$MINUTE); $minutes = sprintf("%02d", $minutes); <%ARGS> $Duration => undef