if ($upto == localtime()) {
    $upto = localtime() + $interval;

##</code><code>##

$ perl -le'print scalar localtime'
Tue Sep 20 05:32:46 2011