Moving old terrible perl scripts