if ($upto == localtime()) {
    $upto = localtime() + $interval;
[download]

localtime returns a string in scalar context and you can't properly do arithmetic operations on a string.

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

Perhaps you meant to use time instead?