Update script_perl.rst