Perl 未定义的子程序&；main:：删除树调用

我正在编写一个perl脚本，它将发送一封关于开放案例数量的电子邮件，同时将删除一个超过30天的目录

 $age = -M;
if($age > 30)
{
    remove_tree ($_);
}

这就是我正在做的。脚本运行良好，但30天后它停止运行，没有删除旧目录，并抛出以下错误

 Undefined subroutine &main::remove_tree called at /var/www/cgi-bin/remedy-case- 
  management/remedy-open-cases-script.pl line 35.

我不知道怎么解决这个问题

我从remove_树行中删除了paranthesis，它抛出如下错误。 如果没有/var/www/cgi-bin/rememy-case-management/rememy-open-cases-script.pl第35行的包或对象引用，则无法调用方法“remove_-tree”

---

有人能告诉我我在这里犯了什么错误吗？谢谢。

您似乎删除了或注释掉了一行类似于的内容

use File::Path qw{ remove_tree };

---

请参阅。

删除树是中的一个函数

在使用该功能之前，请确保包含该模块：

use File::Path qw(remove_tree);

哦，当然。我不知道我接受了你的回答我该怎么投票。？