#!/usr/bin/perl -w

    use Tk;
    use Tk::Compound;
    use strict;
    
    my $mw = tkinit;
    
    my $compound = $mw->Compound;
        #How do we place this image to far left in menu?
    $compound->Bitmap(-bitmap => 'question', -anchor=>'w');
    $compound->Space(-width => 8);
    $compound->Text(-text => "Open", -underline => 0);
  
    my $menubar = $mw->Menu(-type => 'menubar', );
    
    my $menuitem = [ [command => Open, -image => $compound] ];
    $menubar->cascade(-label => 'File',-tearoff => 0, -menuitems => $menuitem);
    
    $mw->configure(-menu => $menubar);  
    
    MainLoop;