DBD::AnyData to the rescue!

We have a named constant at the top of our package, which determines if we will use caching or not.

use constant CACHE_TABLES => 1;   my $MEMORY_DBH;

continued...