my $newBtn= $upper->Button(
    '-text' => "New Subdirectory",
    '-command' => sub { newDir( $direntry->get() ) },
)->grid( '-column' => 1, '-row' => 1 );