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