#!/usr/local/bin/perl -w
use strict;

use Image::Magick;
my($image);
...
...