some perl scripts