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

@blobs = $image->ImageToBlob(magick => 'BMP');

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