use Tk;
my $top = MainWindow->new;
$top->configure(-menu => $top->Menu(-menuitems => [
    [Cascade => "~File", -menuitems =>
     [
      [Button => "~Open", -image => $top->Photo(-file => Tk->findINC("srcfile.xpm")), -compound => "left"],
      [Button => "~Folder", -image => $top->Photo(-file => Tk->findINC("folder.xpm")), -compound => "left"],
     ]
    ]
]));
MainLoop;