my $etime = sprintf("%.4f",gettimeofday - $stime); $keys = scalar keys %RCache; print $DLOG " Exit: Keys:$keys \%RCache Size: ",total_size(\%RCache)," Time:$etime\n"; }