my $menuitems = 
    [

     [Cascade => "~File", -menuitems =>
      [
       [Button => "~New", -command => \&new],
       [Separator => ""],
       [Button => "~Open", -command => \&open],
       [Button => "~Save", -command => \&open],
     ...