在Perl中，可以通过使用关键字sub来定义函数。函数的语法如下：

sub function_name {# 函数体# 可以在这里编写函数的逻辑}

下面是一个简单的例子，展示如何定义一个函数并在主程序中调用它：

sub greet {my ($name) = @_;print "Hello, $name!\n";}# 调用函数greet("Alice");greet("Bob");

在上面的例子中，我们定义了一个名为greet的函数，用来打印“Hello, $name!”的问候语。在主程序中，我们分别调用了greet函数并传递了不同的参数。

需要注意的是，在Perl中，函数的参数传递是通过@_数组来实现的。在函数内部，我们可以通过$_[0]、$_[1]等访问传递给函数的参数。此外，可以使用my ($param1, $param2) = @_来将参数赋值给变量。