#Package Syringe
package Syringe;
use strict;
use warnings;
use MiscGeo;
use Math::ConvexHull;

$VERSION = 0.9;
@ISA = qw(Exporter);
@EXPORT = qw(new increment populate Particle_Path Convex_Hull);
@EXPORT_OK = qw(net_velocity);

use constant PI =>  4 * atan2 1, 1;

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
...