use Image::Magick;  # I actually use a wrapper here to set the env.  
my $status;
my $image = Image::Magick->new();

$status = $image->Read("netscape:");
warn $status if ($status);
$status = $image->Scale('256x256+256');
warn $status if ($status);
$status = $image->Write('background.gif');
('map:../../htdocs/background.map');
warn $status if ($status);
$status = $image->Write('html:../../htdocs/background.html');
warn $status if ($status);