#line 2: 0];)}sub p( # should be: 0])}sub p( #line 3: $_[0];+rand($_ [1];-$_[0 ];+1)}$|= #should read $_[0]+rand($_ [1]-$_[0 ]+1)}$|= # and line 9: 1];,$ # should read: 1],$