<br>Esse código aqui funcionou corretamente.<br><br><i>#!/usr/bin/perl<br>use Image::Magick;<br><br>$image = Image::Magick->new;<br>$image->Read('imagem1.png');<br>my ($l, $a) = $image->Get('width', 'height');<br>
print $l . 'x' . $a;</i><br><br><br clear="all"><br>-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br>
<br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br>
<br>