关于utime的使用

[chennut0802]

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

#!/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

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

[fibbery]

谁知道你的第九行是哪一行？

[chennut0802]

抱歉，没有把问题描述清楚：
代码如下：

      1 #!/usr/bin/perl -w
      2 use strict;
      3 use diagnostics;
      4 
      5 my $now=time;
      6 my $ago=$now ? 24 * 60 * 60;
      7 utime $now, $ago, glob "*";
      8 

错误提示：
syntax error at ./TestUtime line 6, near "60;"
BEGIN not safe after errors--compilation aborted at ./TestUtime line 7 (#1)

[fibbery]

第六行，你想实现什么操作？如果是三元运算符，你缺少冒号部分。例如：

my $ago=$now ? 24 * 60 * 60:0;