Perl为什么这个while循环不起作用？

这个语法有什么问题吗？它总是给我一个错误。

它没什么问题

问题出在别的地方。发布产生问题的完整最小代码。

否

my $cmte_money_total = 0;
while ($cmte_money_total == 0){
  # body of function
}

---

至少，说一下你犯了什么错误！！！

$ perl -c -e'
  my $cmte_money_total = 0;
  while ($cmte_money_total == 0){
    # body of function
  }
'
-e syntax OK