Help for this page
if ( time > $NEXT_TIME ) { print "Change file\n"; thread_log(); }
sub thread_log { ... $NEXT_TIME = $NEXT_TIME + 60; }