use Tk::Photo;

my  $pic_source = $mw->Photo(-file => "d:/fortschritt/Logo/logo.bmp");  
$mw->Label(-image => $pic_source)->pack();