updated perl scripts