求教一个小程序问题（已解决）

本帖最后由 kingwmj 于 2010-09-15 10:59 编辑

在小骆驼书里的一个例子，我输入后运行，说有语法错误，可是我是按书上的输入的。是不是perl版本的问题？我装的是5.12，书上的是5.10
代码如下：
use 5.010

running_sum(5,6);
running_sum(1..3);
running_sum(4 );

sub  running_sum{
        state $sum=0;
        state @numbers;
        foreach my $number(@_){
                push @numbers,$number;
                $sum+=$number;
        }
        print "the sum of (@numbers)is $sum";
}

我把use 5.010换成5.012也不行。
各位高手看看问题出在哪里了？

找到问题在哪里了，原来第一行少了分号。