Fix error in script_perl