perl -MImage::Magick -MData::Dumper -le '$o=Image::Magick->new;print Dumper $o'
$VAR1 = bless( [], 'Image::Magick' );