my $frame_GUI = $mw->toplevel;
my $menubar = $frame_GUI->Menu(-type => 'menubar');

my $file= $menubar->cascade(-label => '~File', -tearoff => 0);
$file1= $file->command(-label => "Open", -command => sub{Open()}, -compound => 'left');
$file1->configure (-image => $mw->Photo(-file => 'files\images\setup24.png'));