opendir DIR, $currentDir or die "cannot open dir $currentDir: $!";
my @file= readdir DIR;
closedir DIR;
	my $items = [{
  	   name => 'Stuff',
           url  => \&Arbitrary menu,
	        foreach my $file (@file) {
                  },{
                  name => $file,
		  url  => \&Arbitrary menu 2,
                }
        }];
  $callback->({
	items => $items
  });