Randomly created perl scripts