replacing perl scripts