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