Algorithm::LineSegments Perl module