my $image = Image::Magick->new;
$image->Read('test.bmp');

@blobs = $image->ImageToBlob();

# Bild in Frame1
$bild= $mw->Photo();
$bild->configure("-data" => @blobs);
$label = $mw->Label(-image => $bild)->pack();