Image Magick can not write a file

Hi,
As the Project's need, we choose use to use
Image-Magick6.3.3(PermlMagic&ActivePerl5.8.8) under linux platform. but
when I run the a pl, we always encounter a wrong, the pl script listed
as below:

sub image_resize {
	my ( $file, $globe_x, $globe_y ) = @_;
	my ( $status ) = "resize_ok";
	my $i = Image::Magick->new;
	$i->Read($file);

	$geometry = "geometry";
	$i->Scale(geometry=>$geometry, width=>$globe_x,
height=>$globe_y);

#	print "Content-type: image/gif\n\n";
#	binmode(STDOUT);

#	$i->Write("gif:-");
	$i->Write($file);

	if( $! ){ $status = "resize_err" }
	return $status ;
}

We got the error message below:

Can't locate object method "Write" via package "Exception 410: no images
defined `Image::Magick'" (perhaps you forgot to load "Exception 410: no
images defined `Image::Magick'"?) at
/dev/config/OEM/perl_module/image_resize.pl line 143.

The line 143 code is :  $i->Write($file);

As a new one to the perl, I have no idea to deal it and it wastes us too
long times, thanks!