Select Code to Download

$ perlbrew exec perl -e 'for(scalar($#foo)) { $_=3 } warn "$] ".@foo."
+\n"' >/dev/null
5.034000 4
...
5.022004 0
5.020003 0
5.018004 0

$ perl -le 'print scalar($#foo)'
-1
$ perl -le 'print ~~$#foo'
18446744073709551615