Recent perl scripts