Small collection of random useful perl scripts