# --------------------------------------
use Image::Magick;
my $image = Image::Magick->new;
$image->Read('pic.jpg');
my %exif = map { s/\s+\z//; $_ }
           map { split /=/, $_  }
           split /exif:/, $image->Get('format', '%[EXIF:*]');
my $s = $exif{'ImageDescription'};
# --------------------------------------