useful perl scripts