my $image=Image::Magick->new();