Random perl scripts that I created to convince myself that it is indeed fun!