use warnings;
 use strict;

 use Tk;

 my $mw = MainWindow->new;
 my $m = $mw->Menu(-popover => 'cursor',
                   -tearoff => 0,
               );
 

 my $image = $mw->Photo(-file => Tk->findINC(
                      'Xcamel.gif'));
 $m->command(-bitmap => 'info' ,
             -command => sub{print "bitmap\n"});
 $m->command(-image  => $image,
             -command => sub{print "image\n"});

 my $text = $mw->Button(-text => 'menu',
                        -command => [$m,'Popup'],
                        )->pack;
 MainLoop;