Handy perl scripts used for my movabletype blog