在Perl中進行單元測試通常使用Test::Simple或Test::More模塊。以下是一個簡單的示例：
use Test::Simple tests => 3;
sub add {
my ($num1, $num2) = @_;
return $num1 + $num2;
}
ok(add(1, 2) == 3, 'Adding 1 and 2');
ok(add(5, 5) == 10, 'Adding 5 and 5');
ok(add(-1, 1) == 0, 'Adding -1 and 1');
在這個示例中，我們使用Test::Simple模塊來執行3個單元測試。我們定義了一個簡單的add函數，然后使用ok函數來檢查add函數的返回值是否符合預期。
您也可以使用Test::More模塊來進行更高級的單元測試，例如使用diag函數輸出調試信息，使用cmp_ok函數進行比較操作等。
