tidied the database perl
Merge branch 'master' of github.com:bartsmit/bedtime