use strict; use warnings; use Tk; use GD; use Image::Magick; use Image::Size; my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg"; my $image = new Image::Magick; $image->Read("$imageFile") or die; $image->Scale('100 x 100');