add two perl scripts