如何有条件地定义Perl子例程？

在Perl编程语言中，子例程是一种可重用的代码块，可以在程序中多次调用。要有条件地定义Perl子例程，可以使用条件语句（如if、unless等）来控制子例程的定义和调用。

以下是一个示例代码，演示如何有条件地定义Perl子例程：

sub my_subroutine {
    print "This is my subroutine.\n";
}

if ($condition) {
    sub my_subroutine {
        print "This is my conditional subroutine.\n";
    }
}

my_subroutine();

在这个示例中，根据$condition变量的值，my_subroutine子例程的定义会有所不同。如果$condition为真，则定义一个输出"This is my conditional subroutine."的子例程；如果$condition为假，则定义一个输出"This is my subroutine."的子例程。

需要注意的是，在Perl中，子例程的定义必须在调用之前完成。因此，在上面的示例中，my_subroutine()的调用必须在if语句之后。