perl_script