some useful perl scripts