Help wanted for Image::Magick Remote image size: PERL

[TrafficProducer]

Help wanted for Image::Magick Remote image size: PERL

I have some PERL script which works LOCALLY, OptiPerl editor.

But fails on the Server, Host.

Basically I want the script to not allow images that are too big, ( x pixel or y pixel size), to set the size of these to the Maximun size.

Images which are smaller than the Maximun size I want should be left with out changes.

Please note that the images are hosted remotely

For example: $image_URL=http://store1.yimg.com/I/4inkjets_1829_757043.gif

Basically the code is:-

use Image::Magick;

... code

$image = new Image::Magick;

$image->Read($image_URL);

$image_width = $image->Get('width');
$image_height = $image->Get('height');

.... code to set sizes.

Returns:-
image_width==> image_height==>

The image size are NOT being returned from this when used on the sever, but are returned when code is tested Locally.

See this in action
See this code in action
http://www.comparebargains.com/cgi-b...y=bothcurrency


Thank you..