use strict;
use Image::Info;

my $bild = "img.jpg";

my $info = image_info($bild);

if (my $error = $info->{error}) {
   die "Kann Bild nicht auslesen: $error\n";
}

print "Kompressionsrate: $info->{Compression}\n";