General purpose perl scripts.