Various perl scripts I've written