simple perl script to harvest data to fill cache