Select Code to Download

# initialisation as before

$cur = $best = $array[$cur_start] if @array;
...
    $cur_start = $_ + 1;
  }
}

#! /usr/bin/perl -w
use strict;

...
Sum: $best
Numbers: @array[$best_start..$best_end]
);