There is a slight typo in the 'download' version:

#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],$
[download]