Create perl.sh