del perl_script