在Perl中用户可以定义子程序，并在程呼中调用。通过将特殊功能的代码定义为子程序，可以减少代码重复并且使程序易于维护。在Perl中子程序可以出现在程序的任何地方，其定义方法为：
sub subname
{
statements;
}
其中，Sub声明为子程序定义，subname是子程序的名称，在“()”中间的是子程序体．对于子程序的调用，可以使用以下几种方法：
（1）可以使用符号“＆”加子桂序名称调用，如：
&subname：
(2)如果子程序是先定义而后才‘调用的话，则符号“＆”可以省略。
（3）可以使用“do”加子程序名的方式，如：
do subname
下面，我们给出个简单的子程序名的例子。
$a = 999 ;
$h= 888 ;
print “Before the call of sub, a is $a, b is $b \n”；
suh Sum
{
$SUJn = $a + $h
retum ($sum) :
print "The firit call : $i \n
$i = sum ( 10 , 20 ) ;
print '7he sccond call : $11n "
$i=&sum ( 10 , 20 ) ;
print ”the third call : $i \n “
pnnt”After the call of sub,a is $a.b is$b＼n”，
它运行的结束为：
Before the call of suh, a is 999, b is 888
The first call 7
The second call：30
The third call 300
Arter the call of sub, a is 999, biS 88S
这里定义了一个简中的求两个数和的子程序，然后用三种方法传入不同的参数进行调用，可以看出．上面三种调用方法都可以完成相同的结果需要注意的是：(1)在子程序sum中用my定义了局部变量$a和$b，它们用来接收调州参数，但与子程序外面的同名变量$a和$b是没有任何关系的，从程序的运行结果中可以看到这一点：(2)调用参数的传递采用了内部变量“$_”，这里采用的是值传递。