my $fom = $page->[$_-1]->Optionmenu(
                -variable => \$info->{file}->[$_-1],
                -options  => get_files($info->{subdir}->[$_-1]),
    );
    my $dom = $page->[$_-1]->Optionmenu(
                -variable => \$info->{subdir}->[$_-1],
                -options  => [@subdirs],
                -command  => sub { $fom->configure(-options => get_files($_[0]->{base},$info->{subdir}->[$_-1])) },
    );