Select Code to Download

    my $menuitem = [ [command => 'Open', -image => $compound], [comman
+d => 'close'] ];

    $menuitem = [ [command => 'Open'], [command => 'close'] ];
    $menubar->cascade(-label => 'Edit', -tearoff => 0, -menuitems => $
+menuitem);