在Perl中，可以使用關鍵字sub來定義子程序。具體語法如下：
sub subroutine_name {
# 子程序的代碼
}
以下是一個簡單的Perl子程序示例：
sub greet {
my $name = shift;
print "Hello, $name!\n";
}
greet("Alice");
在上面的示例中，greet是一個子程序，它接受一個參數 $name，并輸出一個問候語。然后通過調用 greet("Alice") 來執行該子程序。
