my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";

my $image =Image::Magick->new;

$image->ReadImage($imageFile);

$image->Set(geometry=>'100x100') or die "$!";

$image->Write('bild.png');

my $witdh = $image->Get('columns');

printf $witdh;