Select Code to Download

    #oops...pointer arithmetic..
...
    $curlevel = @$curvals + $level;
    # or some such?  i'm not entirely certain as to why curvals got dr
+opped here...

#!/usr/bin/perl -w
...

1;