Select Code to Download

 $menubar = $top->Menu;
   $file_menu = $menubar->cascade(-label => "~File");
   $file_menu->command(-label => "Restart", -command => \&Restart);
...
   $file_menu->command(-label => "All", -command => sub {$fname = "mac
+hines"; &Restart});
   $file_menu->command(-label => "HP-UX", -command => sub {$fname = "m
+achines.HPUX"; &Restart});
   $file_menu->command(-label => "Linux", -command => sub {$fname = "m
+achines.Linux"; &Restart});

# Get filter list
   my @filter = qw();
   my $dir = '.';
...
   foreach (@filter) {
     $file_menu->command(-label => "$_", -command => sub {$fname = "$_
+"; &Restart});
}