Just a dump of some perl scripts I use at work.