my perl scripts, just utilities