假设你有下面这张表：

CREATE TABLE EMPLOYEE (
    name text,
    basesalary integer,
    bonus integer
);

为了得到总薪酬（基本工资 + 奖金），我们可以 像下面这样定义一个函数：

CREATE FUNCTION totalcomp(integer, integer) RETURNS integer
    AS 'return $_[0] + $_[1]'
    LANGUAGE 'plperl';

注意，函数的参数如预期那样通过 @_ 传递。

现在我们可以像这样使用我们的函数：

SELECT name, totalcomp(basesalary, bonus) FROM employee;

不过，我们也可以把整个元组传给我们的函数：

CREATE FUNCTION empcomp(employee) RETURNS integer AS '
    my $emp = shift;
    return $emp->{''basesalary''} + $emp->{''bonus''};
' LANGUAGE 'plperl';

元组以哈希的引用形式传递。键是 元组中字段的名字。哈希的值是 元组中对应字段的值。

新函数 empcomp 可以这样使用：

SELECT name, empcomp(employee) FROM employee;

下面是一个由于安全原因不允许文件系统 操作而不能工作的函数例子：

CREATE FUNCTION badfunc() RETURNS integer AS '
    open(TEMP, ">/tmp/badfile");
    print TEMP "Gotcha!\n";
    return 1;
' LANGUAGE 'plperl';

这个函数的创建会成功，但执行它不会成功。