sub opdir{
    my ($max, $moritz) = @_;