#!/usr/bin/perl
...
my @polygon = build_polygon($num_points, $radius);
print_svg_polygon(@polygon);
exit;

sub build_polygon {
...