use warnings;
 use strict;

 use Tk;
 use Tk::Photo;

 my $mw = MainWindow->new;
 my $popup_menu = $mw-> Menu (-type => 'menubar');
 my $logo	= $mw-> Photo (-file => "D:/pfad/icon.bmp");


$popup_menu-> command (-image => $logo, -command => sub {print "image";});
$popup_menu-> command (-label => "blabla", -command => sub {print "label";});
	

$popup_menu-> Popup (-popover => 'cursor', -overanchor => 's', -popanchor => 'nw');

 MainLoop;