@cache = readfile($main::systime);
shift @cache while @cache > $maxcache;
dbg(sprintf "WWV read in last %d records into cache in %dmS", scalar @cache, _diffms($t0));
@cache = readfile($main::systime);
shift @cache while @cache > $maxcache;
dbg(sprintf "WWV read in last %d records into cache in %dmS", scalar @cache, _diffms($t0));