handy perl scripts I've written for general purpose