perl scripts I've written