edit perl-init.sh