some various perl scripts