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