use Image::Magick;

Read or Write Functions

Routine	Parameters	Return Value	Description
Read	one or more filenames	the number of images read	read an image or image sequence
Write	filename	the number of images written	write an image or image sequence
Display	server name	the number of images displayed	display the image or image sequence to an X server
Animate	server name	the number of images animated	animate image sequence to an X server

    $q->Crop(geometry=>'100x100+10+20');
    $q->[$x]->Frame("100x200");

And here is a list of other image manipulation methods you can call:

Image Manipulation Routines

Routine	Parameters	Description
AddNoise	noise=>{Uniform, Gaussian, Multiplicative, Impulse, Laplacian, Poisson}	add noise to an image
Annotate	server=>string, font=>string, pointsize=>integer, box=>colorname, pen=>colorname, geometry=>geometry, text=>{string, @filename}, align=>{Left, Center, Right}, x=>integer, y=>integer	annotate an image with text
Border	geometry=>geometry, width=>integer, height=>integer, color=colorname	surround the image with a border of color
Blur	factor=>percentage	blurs an image
Charcoal	factor=>percentage	simulate a charcoal drawing
Chop	geometry=>geometry, width=>integer, height=>integer, x=>integer, y=>integer	chop an image
Composite	compose=>{Over, In, Out, Atop, Xor, Plus, Minus, Add, Subtract, Difference, Bumpmap, Replace, MatteReplace, Mask, Blend, Displace}, image=>image-handle, geometry=>geometry, x=>integer, y=>integer, gravity=>{NorthWest, North, NorthEast, West, Center, East, SouthWest, South, SouthEast}	composite one image onto another
Contrast	sharpen=>{True, False}	enhance or reduce the image contrast
Clone		make a copy an image
Crop	geometry=>geometry, width=>integer, height=>integer, x=>integer, y=>integer	crop an image
Colorize	color=>colorname, pen=>colorname	colorize the image with the pen color
Comment	string	annotate an image with a comment
CycleColormap	amount=>integer	displace image colormap by amount
Despeckle		reduce the speckles within an image
Draw	primitive={Point, Line, Rectangle, FillRectangle, Circle, FillCircle, Polygon, FillPolygon, Color, Matte, Text, Image, @filename}, points=>string, method={Point, Replace, Floodfill, Reset}, pen=>colorname, linewidth=>integer, server=>string,	annotate an image with one or more graphic primitives
Edge	factor=>percentage	detect edges within an image
Emboss		emboss the image
Enhance		apply a digital filter to enhance a noisy image
Equalize		perform histogram equalization to the image
Flip		create a mirror image by reflecting the image scanlines in the vertical direction
Flop		create a mirror image by reflecting the image scanlines in the horizontal direction
Frame	geometry=>geometry, width=>integer, height=>integer, inner=>integer, outer=>integer,color=>colorname	surround the image with an ornamental border
Gamma	gamma=>double, red=>double, green=>double, blue=>double	gamma correct the image
Implode	factor=>percentage	implode image pixels about the center
Label	string	assign a label to an image
Magnify		double the size of an image
Map	image=>image-handle, dither={True, False}	choose a particular set of colors from this image
Minify		half the size of an image
Modulate	brightness=>double, saturation=>double, hue=>double	vary the brightness, saturation, and hue of an image
Negate	gray=>{True, False}	apply color inversion to image
Normalize		transform image to span the full range of color values
OilPaint	radius=>integer	simulate an oil painting
Opaque	color=>colorname, pen=>colorname	change this color to the pen color within the image
Quantize	colors=>integer, colorspace=>{RGB, Gray, Transparent, OHTA, XYZ, YCbCr, YCC, YIQ, YPbPr, YUV, CMYK}, treedepth=>integer, dither=>{True, False},	preferred number of colors in the image
Raise	geometry=>geometry, width=>integer, height=>integer, x=>integer, y=>integer, raise=>{True, False}	lighten or darken image edges to create a 3-D effect
ReduceNoise		add or reduce the noise in an image
Roll	geometry=>geometry, x=>integer, y=>integer	roll an image vertically or horizontally
Rotate	degrees=>double, crop=>{True, False}, sharpen=>{True, False}	roll an image vertically or horizontally
Sample	geometry=>geometry, width=>integer, height=>integer	scale image with pixel sampling
Scale	geometry=>geometry, width=>integer, height=>integer	scale image to desired size
Segment	colorspace=>{RGB, Gray, Transparent, OHTA, XYZ, YCbCr, YCC, YIQ, YPbPr, YUV, CMYK}, verbose={True, False}, cluster=>double, smooth=double	segment an image by analyzing the histograms of the color components and identifying units that are homogeneous
Shade	geometry=>geometry, azimuth=>double, elevation=>double, color=>{true, false}	shade the image using a distant light source
Sharpen	factor=>percentage	sharpen an image
Shear	geometry=>geometry, x=>double, y=>double, crop=>{true, false}	shear the image along the X or Y axis by a positive or negative shear angle
Signature		generate an MD5 signature for the image
Solarize	factor=>percentage	negate all pixels above the threshold level
Spread	amount=>integer	displace image pixels by a random amount
Swirl	degrees=>double	swirl image pixels about the center
Texture	filename=>string	name of texture to tile onto the image background
Transparent	color=>colorname	make this color transparent within the image
Threshold	threshold=>integer	threshold the image
Trim		remove edges that are the background color from the image
Wave	geometry=>geometry, amplitude=>double, wavelength=>double	alter an image along a sine wave
Zoom	geometry=>geometry, width=>integer, height=>integer, filter=>{Box, Mitchell, Triangle}	scale image to desired size

Note, that the geometry parameter is a short cut for the width and height parameters (e.g. geometry=>'106x80' is equivalent to width=>106, height=>80).

You can specify @filename in both Annotate and Draw. This reads the text or graphic primitive instructions from a file on disk. For example,

   Draw(pen=>'red', primitive=>'rectangle',
     points=>'20,20 100,100  40,40 200,200  60,60 300,300');

Is eqivalent to

   Draw(pen=>'red', primitive=>'@draw.txt');

Where draw.txt is a file on disk that contains this:

  rectangle 20,20 100,100
  rectangle 40,40 200,200
  rectangle 60,60 300,300

You can optionally add Image to any routine name. For example, TrimImage is an alias for method Trim.

    $q->Set(dither=>'True');
    $q->[$x]->Set(delay=>3);

And here is a list of all the image attributes you can set:

Image Attributes

Attribute	Values	Description
adjoin	{True, False}	join images into a single multi-image file
background	string	image background color
bordercolor	string	set the image border color
colormap[i]	string	red, green, and blue color at position i
colorspace	{RGB, Gray, Transparent, OHTA, XYZ, YCbCr, YCC, YIQ, YPbPr, YUV, CMYK}	type of colorspace
colors	integer	preferred number of colors in the image
compress	None, JPEG, LZW, Runlength, Zip	type of image compression
density	geometry	vertical and horizontal resolution in pixels of the image
dispose	{1, 2, 3, 4}	GIF disposal method
delay	integer	regulate the animation of a sequence of GIF images within Netscape
dither	{True, False}	apply Floyd/Steinberg error diffusion to the image
display	string	specifies the X server to contact
filename	string	set the image filename
font	string	use this font when annotating the image with text
format	string	set the image format
iterations	integer	add Netscape loop extension to your GIF animation
interlace	{None, Line, Plane, Partition}	the type of interlacing scheme
loop	integer	add Netscape loop extension to your GIF animation
magick	string	set the image format
mattecolor	string	set the image matte color
monochrome	{True, False}	transform the image to black and white
number	integer	preferred number of colors in the image
page	string	preferred size and location of an image canvas
pixel[x,y]	string	red, green, blue, and opacity value at (x,y)
pointsize	integer	pointsize of the Postscript font
preview_type	{ Rotate, Shear, Roll, Hue, Saturation, Brightness, Gamma, Spiff, Dull, Grayscale, Quantize, Despeckle, ReduceNoise, AddNoise, Sharpen, Blur, Threshold, EdgeDetect, Spread, Solarize, Shade, Raise, Segment, Swirl, Implode, Wave, OilPaint, CharcoalDrawingPreview }	type of preview for the Preview image format
quality	integer	JPEG quality setting
scene	integer	image scene number
subimage	integer	subimage of an image sequence
subrange	integer	number of images relative to the base image
server	string	specifies the X server to contact
size	string	width and height of a raw image
tile	string	tile name
texture	string	name of texture to tile onto the image background
treedepth	{0, 1, 2, 3, 4, 5, 6, 7, 8}	depth of the color classification tree
undercolor	string	control undercolor removal and black generation on CMYK images
verbose	{True, False}	print detailed information about the image

Note, that the geometry parameter is a short cut for the width and height parameters (e.g. geometry=>'106x80' is equivalent to width=>106, height=>80).

SetAttribute is an alias for method Set.

    ($a, $b, $c) = $q->Get('colorspace', 'magick', 'adjoin');
    $width = $q->[3]->Get('columns');

    $q->Montage(geometry=>'160x160', tile=>'2x2', texture=>'granite:');

And here is a list of Montage parameters you can set:

Montage Parameters

Parameter	Values	Description
background	string	X11 color name
borderwidth	integer	image border width
compose	{Over, In, Out, Atop, Xor, Plus, Minus, Add, Subtract, Difference, Bumpmap, Replace, MatteReplace, Mask, Blend, Displace}	composite operator
filename	string	name of montage image
filter	{Box, Mitchell, Triangle}	use this filter to resize the image tile
font	string	X11 font name
foreground	string	X11 color name
frame	geometry	surround the image with an ornamental border
geometry	string	preferred tile and border size of each tile of the composite image
gravity	{NorthWest, North, NorthEast, West, Center, East, SouthWest, South, SouthEast}	direction image gravitates to within a tile
label	string	assign a label to an image
mode	{Frame, Unframe, Concatenate}	thumbnail framing options
pointsize	integer	pointsize of the Postscript font
shadow	{True, False}	add a shadow beneath a tile to simulate depth
texture	string	name of texture to tile onto the image background
tile	geometry	number of tiles per row and column
Title	string	assign a title to the image montage
transparent	string	make this color transparent within the image

Note, that the geometry parameter is a short cut for the width and height parameters (e.g. geometry=>'106x80' is equivalent to width=>106, height=>80).

MontageImage is an alias for method Montage.

    $x = $q->Average();

averages all the images associated with object $q.