use strict;
use warnings;

use Tk;
use GD;

my $imageFile = "/home/student/Dokumente/Sonic_4_hero_version_2.jpg";
my $original = GD::Image->new("/home/student/Dokumente/Sonic_4_hero_version_2.jpg");