added several perl scripts