#!/usr/local/ActivePerl-5.10/bin/perl -w
use strict;
use warnings;
use Syringe;

print $INC{"Syringe.pm"};
my $syringe = Syringe->new();
print "Wohooooo!";

##</code><code>##

#Package Syringe
package Syringe;
use strict;
use warnings;

@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw();

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

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
	$self->{picture_width} = $args{picture_width};
    return $self;
}

1;

##</code><code>##

Can't locate object method "new" via package "Syringe" (perhaps you forgot to load "Syringe"?) at /Users/phowell/Documents/Work/Programming/Syringe/Syringe.pl line 8.
/Users/phowell/Documents/Work/Programming/Syringe/Syringe.pm