Can't locate loadable object for module GD in @INC

I am trying to use the GD module on a on Unix Solaris environment machine by including gd.pm from a temporary location
but I am receiving the following error:

perl -w polyline.pl > imageoutput.png
Can't locate loadable object for module GD in @INC (@INC contains: /home2/work/tmp/Work1/GD-2.01 /opt/perl/5.8.0.1/lib/5.8.0/sun4-solaris /opt/perl/5.8.0.1/lib/5.8.0 /opt/perl/5.8.0.1/lib/site_perl/5.8.0/sun4-solaris /opt/perl/5.8.0.1/lib/site_perl/5.8.0 /opt/perl/5.8.0.1/lib/site_perl .) at /home2/work/tmp/Work1/GD-2.01/GD/Polyline.pm line 49
Compilation failed in require at /home2/work/tmp/Work1/GD-2.01/GD/Polyline.pm line 49.
BEGIN failed--compilation aborted at /home2/work/tmp/Work1/GD-2.01/GD/Polyline.pm line 49.
Compilation failed in require at polyline.pl line 13.
BEGIN failed--compilation aborted at polyline.pl line 13.

The following is my code.

use lib "/home2/work/tmp/Work1/GD-2.01";
##use GD;
use GD::Polyline;

$PI = 3.14159; $TWO_PI = 2 * $PI;
sub r2d {$_[0] * 180 / $PI};

$splinekey = "<UL><LI>Green: original polygon or polyline<LI>Blue: control points added with addControlPoints()<LI>Black: spline generated by toSpline()</UL>";

if (1) {

\#\#use GD;
\#\#use GD::Polyline;

\# create an image
$image = new GD::Image \(500,300\);
$white  = $image->colorAllocate\(255,255,255\);
$black  = $image->colorAllocate\(  0,  0,  0\);
$red    = $image->colorAllocate\(255,  0,  0\);

\# create a new polyline
$polyline = new GD::Polyline;

\# add some points
$polyline->addPt\(  0,  0\);
$polyline->addPt\(  0,100\);
$polyline->addPt\( 50,125\);
$polyline->addPt\(100,  0\);

\# polylines can use polygon methods \(and vice versa\)
$polyline->offset\(200,100\);

\# rotate 60 degrees, about the centroid
$polyline->rotate\(3.14159/3, $polyline->centroid\(\)\);

\# scale about the centroid
$polyline->scale\(1.5, 2, $polyline->centroid\(\)\);

\# draw the polyline
$image->polydraw\($polyline,$black\);

\# create a spline, which is also a polyine
$spline = $polyline->addControlPoints->toSpline;
$image->polydraw\($spline,$red\);

\# output the png
\#binmode STDOUT;
\#print $image->png;

SampleImage\($image, "polyline-synopsis.png", "Synopsis", "Polyline created by 'SYNOPSIS' section of documentation."\);

}

if (1) {
$image = NewImage();

$offset = 50;


for $poly \(new GD::Polygon, new GD::Polyline\) \{

	$table_info = [];

	$poly->addPt\(  0,  0\);
	$poly->addPt\(  0,100\);
	$poly->addPt\( 50,125\);
	$poly->addPt\(100,  0\);

	\#print "this " . ref\($poly\) . " has " . $poly->length\(\) . " points\\n";

	push @$table_info, ["<B>".ref\($poly\)."</B>"];
	push @$table_info, ['vertex number: ', 0..\($poly->length\(\)-1\)];

	@coords = $poly->vertices\(\);
	@coords = map \{"[".int\($\_->[0]\).",".int\($_->[1]\)."]"\} @coords;
	push @$table_info, ['coordinates \(pre-offset\): ', @coords];

	@lengths = $poly->segLength\(\);
	@lengths = map \{int\($_\+0.5\)\} @lengths;
	\#print "segLengths are   : @lengths\\n";
	\#print "perimeter is     : " . int\($poly->segLength\(\)\) . "\\n";
	push @$table_info, ['segment lengths: ', @lengths];

	@angles = $poly->segAngle\(\);
	@angles = map \{int\(r2d\($_\)\+0.5\)\} @angles;
	\#print "seg angles are   : @angles\\n";
	push @$table_info, ['segment angles: ', @angles];

	@angles = $poly->vertexAngle\(\);
	@angles = map \{defined \($_\) ? int\(r2d\($_\)\+0.5\) : "undef"\} @angles;
	\#print "vertex angles are: @angles\\n";
	push @$table_info, ['vertex angles: ', @angles];

	$poly->offset\(50 \+ $offset,80\);
	$offset \+= 200;

	\# draw the original poly
	$image->polydraw\($poly,$black\);

	\#print "\\n\\n";

	push @$summary_table, genHTMLTable\($table_info, 0\);
\}

SampleImage\($image, "polyline-simple.png", "Simple", "GD::Polygon and GD::Polyline with same vertexes.</P>" . genHTMLTable\([$summary_table], 1\)\);

}

if (1) {
$image = NewImage();

$offset = 50;

for $poly \(new GD::Polygon, new GD::Polyline\) \{

	$poly->addPt\(  0,  0\);
	$poly->addPt\(  0,100\);
	$poly->addPt\( 50,125\);
	$poly->addPt\(100,  0\);

	$poly->offset\(50 \+ $offset,80\);
	$offset \+= 200;

	\# draw the original poly
	$image->polydraw\($poly,$green\);

	\# create and draw the control line for the spline
	$ctrlline = $poly->addControlPoints\(\);
	$image->polydraw\($ctrlline,$cyan\);

	\# create and draw the spline itself
	$spline = $ctrlline->toSpline\(\);
	$image->polydraw\($spline,$black\);

\}

SampleImage\($image, "polyline-spline.png", "Spline", "Splines fit to vertices of polygon and polyline.  $splinekey"\);

}

if (1) {
$image = NewImage();

$triangle = new GD::Polygon;

$triangle->addPt\(  0,  0\);
$triangle->addPt\(-19, 95\);
$triangle->addPt\( 19, 95\);

$triangle->offset\(250,50\);

foreach \(1..9\) \{
	$image->polydraw\($triangle,gdBrushed\);
	$triangle->rotate\($TWO_PI / 9, 250, 150\);
\}

SampleImage\($image, "polyline-star9.png", "Nine Pointed Star", "A triangle, rotated about a point other than the origin.<BR>Demonstration of \\$poly->rotate\(\) and \\$poly->offset\(\)"\);

}

if (1) {
$image = NewImage();

$cloverControl = new GD::Polyline;
$cloverControl->addPt\(45,45\);
$cloverControl->addPt\(10,10\);
$cloverControl->addPt\(90,10\);
$cloverControl->addPt\(55,45\);
$cloverControl->addPt\(90,10\);
$cloverControl->addPt\(90,90\);
$cloverControl->addPt\(55,55\);
$cloverControl->addPt\(90,90\);
$cloverControl->addPt\(10,90\);
$cloverControl->addPt\(45,55\);
$cloverControl->addPt\(10,90\);
$cloverControl->addPt\(10,10\);
$cloverControl->addPt\(45,45\);

$clover = $cloverControl->toSpline\(\);

\# note that the three following transformations
\# could have been called on $cloverControl, instead,
\# followed by the above call

$clover->offset\($clover->centroid\(-1\)\);
$clover->scale\(3, 3\);
$clover->offset\(250, 150\);

$image->filledPolygon\($clover,$green\);

SampleImage\($image, "polyline-clover.png", "Clover", "Sample image generated by GD::Polygon"\);

}

if (1) {
$image = NewImage();

$polyline = new GD::Polyline;

for \(0..15\) \{
	$polyline->addPt\(30 * $_ \+ 10, rand\(90\) \+ 5\);
\}

$image->polyline\($polyline,$green\);

$ctrlline = $polyline->addControlPoints\(\);
$ctrlline->offset\(0,100\);
$image->polyline\($ctrlline,$cyan\);

$spline = $ctrlline->toSpline\(\);
$spline->offset\(0,100\);
$image->polyline\($spline,$black\);

SampleImage\($image, "polyline-zigzag.png", "Zigzag", "Spline fit to random function.  $splinekey"\);

}

if (1) {
$image = NewImage();

$ring_network = new GD::Polygon;

$num_nodes = 10;
$randfactor = 80;

for \(1..$num_nodes\) \{
	$x = 250 \+ 150 * cos\($TWO_PI * $\_/$num_nodes\);
	$y = 150 \+ 100 * sin\($TWO_PI * $\_/$num_nodes\);
	$x \+= rand\($randfactor\)-$randfactor/2;
	$y \+= rand\($randfactor\)-$randfactor/2;
	$ring_network->addPt\($x, $y\);
\}

$image->setBrush\($brush2\);
$image->polyline\($ring_network->addControlPoints->toSpline,gdBrushed\);

$ring_node = new GD::Polygon;

$ring_node->addPt\( 0, 0\);
$ring_node->addPt\(10, 0\);
$ring_node->addPt\(10,10\);
$ring_node->addPt\( 0,10\);

for $ring_vertex \($ring_network->vertices\(\)\) \{
	$ring\_node->offset\($ring_node->centroid\(-1\)\);
	$ring\_node->offset\(@$ring_vertex\);
	$image->filledPolygon\($ring_node,$grey\);
\}

SampleImage\($image, "polyline-ring-network.png", "Ring Network", "Closed spline fit to nodes at somewhat random positions."\);

}

WriteToFile("polyline-example.html", theHTML());

print "\n";
print "open 'polyline-example.html' in your favorite browser that supports PNG.\n";
print "\n";

print "done! " . localtime() . "\n";

##########################
#
# helper functions
#

sub NewImage {
$image = new GD::Image (500,300);

$white  = $image->colorAllocate\(255,255,255\);
$black  = $image->colorAllocate\(  0,  0,  0\);
$grey   = $image->colorAllocate\(128,128,128\);
$red    = $image->colorAllocate\(255,  0,  0\);
$orange = $image->colorAllocate\(255,196,  0\);
$green  = $image->colorAllocate\(  0,255,  0\);
$blue   = $image->colorAllocate\(  0,  0,255\);
$cyan   = $image->colorAllocate\(  0,255,255\);
$purple = $image->colorAllocate\(206,  0,165\);

$brush_width = 2;
$brush_color = [255,128,0];
	$brush = new GD::Image\($brush\_width,$brush_width\);
	$brush->transparent\($brush->colorAllocate\(255,255,255\)\);
	$brush->filledRectangle\(0,0,$brush\_width,$brush\_width,$brush->colorAllocate\(@$brush_color\)\);
$brush1 = $brush;

$brush_width = 3;
$brush_color = [206,0,165];
	$brush = new GD::Image\($brush\_width,$brush_width\);
	$brush->transparent\($brush->colorAllocate\(255,255,255\)\);
	$brush->filledRectangle\(0,0,$brush\_width,$brush\_width,$brush->colorAllocate\(@$brush_color\)\);
$brush2 = $brush;

$image->setBrush\($brush1\);

$image;

}

my $html;

sub SampleImage {
my $image = shift;
my $file = shift;
my $title = shift;
my $text = shift;

WriteToBinaryFile\($file, $image->png\(\)\);

$html .= "<IMG SRC='$file'><BR>\\n";
$html .= "<B>$title</B> - $file<BR>\\n";
$html .= "<P>$text</P><HR>\\n";

}

sub theHTML {
$html;
}

sub WriteToFile {
my $file = shift || return 0;
my $contents = shift || "";

open \(NEWFILE, ">" . $file\) or die "couldn't write to file $file";
print NEWFILE $contents;
close\(NEWFILE\);

print "created file $file\\n";

}

sub WriteToBinaryFile {
my $file = shift || return 0;
my $contents = shift || "";

open \(NEWFILE, ">" . $file\) or die "couldn't write to file $file";
binmode NEWFILE;
print NEWFILE $contents;
close\(NEWFILE\);

print "created file $file\\n";

}

sub genHTMLTable {
my $array_of_arrays = shift;
my $border = shift;
my $html_table;

$html_table .= "<TABLE BORDER='$border'>";
for my $array\_of_items \(@$array\_of_arrays\) \{
	$html_table .= "<TR><TD>";
	$html_table .= join\("</TD><TD>", @$array\_of_items\);
	$html_table .= "</TD></TR>";
\}
$html_table .= "</TABLE>";
$html_table;

}

Please help me in knowing what my error is.
Thanks,
Pooja

You probably have to install GD, you can't just use it from another location like you can with a pure perl module.