my $image = Image::Magick->new();
	$image->Read($answer);
	$image->Scale(width=>100);
	$image->Scale(height=>100);
	
	my $pic = mw->Photo(-file=>$answer);
	$bildlabel->configure(-image=>$pic);