Select Code to Download

#Package Syringe
package Syringe;
...
    my $self = {};
    bless $self, $class;
...

#!/usr/local/ActivePerl-5.10/bin/perl -w
#This program uses the Syringe module (if I can get it to recognize it
+) to model
...
my $time_step = 0.1;    #s
my $syringe = Syringe->new();
...