perl scripts: