use strict;
use Image::Magick;

my $p = new Image::Magick;
$p->Read('c:/data/eps/cookie.jpg');
$p->Resize(geometry=>'100x80');
$p->Write('c:/data/eps/cookie_new.jpg');