Some small perl scripts