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);