misc perl scripts