Some simple perl scripts I'll be using for a perl monger talk soon