This is in a bad state.

I need to upload it to give it away.

This code is released under terms of the standard Perl license.

(c) Copyright Mark Hedges 2004