perl script for wsd, testing text files, updates