是否有一个Perl等同于Python的`if __name__ =='__ main __'`？

在Perl中，等同于Python的if __name__ == '__main__'的写法是：

if ($0 eq __FILE__) {
    # 这里放置主程序代码
}

这个条件判断表示，只有在当前脚本作为主程序运行时，才会执行大括号中的代码。在Perl中，$0表示当前正在执行的程序的文件名，__FILE__表示当前文件的文件名。

在Perl中，这种写法通常用于在一个脚本中编写多个函数或模块时，避免在作为模块导入时执行主程序代码。