Some perl scripts