Select Code to Download

[
  [[177, 518], [205, 353]],
...
  [[746, 269], [856, 312]],
  [[775, 555], [856, 312]],
]

sub edges2poly {
    my $edges = shift; ## Ref to the AoAoA above.
...
    ## return an AoA of just the required points for the bounding poly
+gon.
    return( $edges->[ 0 ][ 0 ], map{ $_->[ 1 ] } @$edges );
}

#! perl -slw
use strict;
...
    }
    return( $edges->[ 0 ][ 0 ], map{ $_->[ 1 ] } @$edges );
}