#!c:/perl -w
use strict;
use Image::Magick;

my $image = new Image::Magick;

my $x = $image->Read("nettie.tif");
	warn "$x" if "$x";

$x = $image->Scale(width=>"200", height=>"200");
	warn "$x" if "$x";

$x = $image->Write("nettienew.tif");
	warn "$x" if "$x";