Adding Aaron's perl scripts