#!/usr/bin/perl

###############
## Libraries ##
###############
use strict;
use warnings;
use Data::Dumper::Concise;
use Function::Parameters;
use lib ".";
use Shape;


##################
## Main Program ##
##################
my $pts     = assign_points();
my $sh      = Shape->new($pts, 1);
my $outline = $sh->outline;

printf "[Resulting Outline]\n";
foreach my $a_point (@$outline) {
    printf "[%s],", join(',', @$a_point);
}
print "\n";


#################
## Subroutines ##
#################
fun assign_points() {
    return [
        [527,83],[527,84],[526,84],[525,84],[524,84],[523,84],[522,84],
       # ... Many more points -- see the original code ...
  ];
}