1?use?Image::Magick;
2?my?($width,?$height,?$size,?$format);
3?my?$image?=?Image::Magick->new;
4?($width,?$height,?$size,?$format)?=?$image->Ping('logo.png');
5?($width,?$height,?$size,?$format)?=?$image->Ping(file=>\*IMAGE);
6?($width,?$height,?$size,?$format)?=?$image->Ping(blob=>$blob);