本文为大家介绍几个perl子程序的例子，供大家学习参考。
首先，我们来看一个求和的子程序：
#!/usr/bin/perl
sub sum_of_fred_and_barney{
print "hi,you called me the _of fred_and_barney!n";
$fred+$barney;
}
$fred=3;
$barney=4;
$wilma=&sum_of_fred_and_barney;
print"$wilma is $wilma!n";
$betty=3*&sum_of_fred_and_barney;
print"$betty is $betty!n";
注意：子程序的返回值是最后一个被计算的表达式，而非程序的最后一行，例如下面的子程序返回$fred和$barney的最大值：
#!/usr/bin/perl
sub larger_of_fred_or_barney{
if($fred>$barney) {$fred;}
else {$barney;}
}
$fred=3;
$barney=4;
$larger=&larger_of_fred_or_barney;
print"$larger is $larger!n";
上面例子中，最后一个被求值的表达式是$fred或者$barney，因此其中的某个变量成为返回值。
perl子程序可以带参数，在程序后面接括号，括号内存放参数列表，看下面例子，求两个数的最大值：
#!/usr/bin/perl
sub max{
if($_[0]>$_[1]) {$_[0];}
else {$_[1];}
}
$max=&max(10,15);
print"$max is $max!n";