($secs,$mins,$hrs,$dom,$moy,$yrs,$dow,$juldays,$dst) = localtime $reftime;

##</code><code>##

$wklater = $reftime + 60*60*24*6

##</code><code>##

($secs,$mins,$hrs,$dom,$moy,$yrs,$dow,$juldays,$dst) = localtime $wklater;