(my $bild)=$g->Image::Magick::ImageToBlob(magick=>'png');
print "$bild\n";