Picture profile name

[moscovisci]

Hello,

how to obtain the picture profile name in perl.

I have tried this function :

Code: Select all

$Image=Image::Magick->new;
$Image->ReadImage('533.eps');
print $Image->Get('format');

but nothing. I obtain nothing.

If someone have an idea, it will be very cool.

I'm french. My english is too poor.