PL/Perl 可用于编写事件触发器函数。
在事件触发器函数中，哈希引用 $_TD 包含关于当前
触发器事件的信息。
$_TD 是一个全局变量，它对触发器的每次调用都有
一个独立的局部值。
$_TD 哈希引用的字段有：
$_TD->{event}触发器为其触发的事件的名称。
$_TD->{tag}触发器为其触发的命令标签。
触发器函数的返回值会被忽略。
下面是一个事件触发器函数的示例，展示了上述内容的一部分：
CREATE OR REPLACE FUNCTION perlsnitch() RETURNS event_trigger AS $$
elog(NOTICE, "perlsnitch: " . $_TD->{event} . " " . $_TD->{tag} . " ");
$$ LANGUAGE plperl;
CREATE EVENT TRIGGER perl_a_snitch
ON ddl_command_start
EXECUTE FUNCTION perlsnitch();