关于utime的使用解决方法

关于utime的使用
大家好，我在看小骆驼的时候，发现修改时间的这段程序不能通过编译：

Perl code

#!/usr/bin/perl -w
use strict;
use diagnostics;

my $now=time;
my $ago=$now ? 24 * 60 * 60;
utime $now, $ago, glob "*";

错误是：
BEGIN not safe after errors--compilation aborted at ./TestUtime line 9

请问是什么原因呢？谢谢！

------解决方案--------------------
谁知道你的第九行是哪一行？