PL/Perl 可用于编写事件触发函数。在事件触发函数中，哈希引用 $_TD 包含关于当前触发事件的信息。$_TD 是一个全局变量，对于触发器的每次调用，都会获得一个单独的局部值。$_TD 哈希引用的字段为：

触发函数的返回值将被忽略。

下面是一个事件触发函数的示例，说明了上述一些内容

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();