my $mw = MainWindow->new;
$mw->title("Something");
my $but_browse = $frm_name -> Button(-text=>"BROWSE",	
   -command =>\&load_listbox) -> pack(-side => 'left');

sub load_listbox {
	my $filepath = $mw->chooseDirectory() or return();
	
        opendir (DIR, $filepath) || die("Cannot open
            directory");
	$lb->delete(0, 'end');
	$lb->insert('end', grep { ! -d } readdir DIR);
        close DIR;

	$lb->bind('<Button-1>', 
          sub { $ent4->configure(-text => 
                             $lb->get($lb->curselection( )) );
				$ent5->focus;
              });

}