可以用 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();