对于每个用户想开启PL/Perl的数据库，使用SQL命令CREATE LANGUAGE或者Greenplum数据库的createlang功能来注册语言。例如，以gpadmin用户身份执行下面的命令在名为testdb的数据库中注册可信的PL/Perl语言：

$ createlang plperl -d testdb

为了从一个数据库中移除对PL/Perl的支持，执行SQL命令DROP LANGUAGE或者Greenplum的droplang功能。例如，以gpadmin用户身份执行下面命令移除名为testdb的数据库对可信PL/Perl语言的支持：

$ psql -d testdb
psql (8.3.23)
Type "help" for help.

testdb=# DROP LANGUAGE plperl;

默认的DROP LANGUAGE行为是RESTRICT；如果存在对象（例如函数）依赖于该语言则该命令执行失败。如果指定了CASCADE子句，也会移除所有依赖于该语言的对象，包括用户使用PL/Perl创建的函数。

PL/Perl包括了访问数据库的内建函数，包括准备和执行查询以及操作查询结果。语言也包括了对错误日志以及字符串操作的功能函数。

下面的示例创建一个包括一个整型列和文本（text）列的简单表。创建一个用户定义的PL/Perl函数，该函数接受一个输入的字符串然后调用spi_exec_query()内建函数来选择表中的所有列和行。在查询结果中，函数返回所有v列包含函数输入字符串的行。

CREATE TABLE test (
    i int,
    v varchar
);
INSERT INTO test (i, v) VALUES (1, 'first line');
INSERT INTO test (i, v) VALUES (2, 'line2');
INSERT INTO test (i, v) VALUES (3, '3rd line');
INSERT INTO test (i, v) VALUES (4, 'different');

CREATE OR REPLACE FUNCTION return_match(varchar) RETURNS SETOF test AS $$
    # 存储输入参数
    $ss = $_[0];

    # 执行查询
    my $rv = spi_exec_query('select i, v from test;');

    # 获取查询状态
    my $status = $rv->{status};

    # 获取查询返回的行数
    my $nrows = $rv->{processed};

    # 循环处理所有行，比较列v和输入参数的值
    foreach my $rn (0 .. $nrows - 1) {
        my $row = $rv->{rows}[$rn];
        my $textstr = $row->{v};
        if( index($textstr, $ss) != -1 ) {
            # match!  return the row.
            return_next($row);
        }
    }
    return undef;
$$ LANGUAGE plperl;

SELECT return_match( 'iff' );
 return_match
---------------
 (4,different)
(1 row)

参考 PostgreSQL PL/Perl 内建函数文档获取更多可用函数的细节讨论信息。

可以在函数调用之间或者当前会话的生命期中用全局哈希%_SHARED来存储数据，包括代码引用。

下面的示例使用%_SHARED在用户定义的set_var()和get_var()函数之间共享数据：

CREATE OR REPLACE FUNCTION set_var(name text, val text) RETURNS text AS $$
    if ($_SHARED{$_[0]} = $_[1]) {
        return 'ok';
    } else {
        return "cannot set shared variable $_[0] to $_[1]";
    }
$$ LANGUAGE plperl;

CREATE OR REPLACE FUNCTION get_var(name text) RETURNS text AS $$
    return $_SHARED{$_[0]};
$$ LANGUAGE plperl;

SELECT set_var('key1', 'value1');
 set_var
---------
 ok
(1 row)

SELECT get_var('key1');
 get_var
---------
 value1
(1 row)

出于安全原因，PL/Perl 一个 SQL 角色独立的 Perl 解释器中执行该角色调用 的任何一个函数。因此，在使用单个会话执行多个 SQL 角色 的代码（通过SECURITY DEFINER函数、使用 SET ROLE等）的应用中，需要采取显式的步骤以保证 PL/Perl 函数能够通过%_SHARED共享数据。要这样做，需要 确保要通信的函数都属于同一个用户，并且把它们标记为 SECURITY DEFINER。当然，要小心这样的函数被滥用。 出于安全的原因，PL/Perl为每个角色创建一个独立的Perl解释器。这可以避免一个用户无意或者恶意地干涉另一个用户的 PL/Perl 函数的行为。每一个这样的解释器都具有其自身的%_SHARED变量值和其他全局状态。只有且仅只有两个 PL/Perl 函数是由同一个 SQL 角色执行时，它们才能共享同一个 %_SHARED值。

有一些场景需要用户必须采取显式的步骤确保PL/Perl函数能够在%_SHARED中共享数据。例如，使用单个会话执行多个SQL角色的代码（通过SECURITY DEFINER函数、使用SET ROLE等）的应用，需要确保要通信的函数都属于同一个用户，并且把它们标记为SECURITY DEFINER。