my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg"; my $image = new Image::Magick; my $res = $image->Read($imageFile); warn $res if $res; $res = $image->Scale('100 x 100'); warn $res if $res; my ($x, $y) = imgsize($res); printf "$x...$y";