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