# Embedded Perl exim -be ${perl{foo}} ${perl{foo}{arg1}} ${perl{foo_undef}} ${perl{foo_die}} ${perl{foo_warn}} ${perl{unknown}} ${perl{readvar}{primary_hostname}} ${perl{readvar}{notexists}} ${perl} ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}} ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}} ${perl{return_scalar}} ${perl{return_list}} ${perl{return_variable_vector}} ${sg{${perl{return_hash}}}{\\d+}{X}} $tod_full // ${perl{change_locale}} // $tod_full **** exim -d-all+expand -be ${perl{foo}{arg1}} ${perl{foo_undef}} ${perl{debug_write}{debug from Perl\n}} ${perl{log_write}{log from Perl}} **** exim -v -bs ehlo x.y.z mail from:<> rcpt to: quit **** exim -bh 10.0.0.1 ehlo x.y.z mail from:<> rcpt to: quit **** exim -DSERVER=server -bd -oX PORT_D **** client 127.0.0.1 PORT_D ??? 220 helo x.y.z ??? 250 mail from:<> ??? 250 rcpt to: ??? 250 quit ??? 221 **** killdaemon exim -be ${perl{no_warn}} ${perl{foo_warn}} **** no_msglog_check