foreach my $item (@filter) {
     $file_menu->command(-label => $item, -command => sub {$fname = $item; &Restart});