A set of useful perl scripts