Add a few perl scripts