use strict;
use warnings;
use Curses::UI;

my $cui = new Curses::UI;

my $file = $cui->filebrowser
            (
             -path        => "/home/plate",
             -show_hidden => 0,
            );

# Filebrowser will return undef
# if no file was selected.
if (defined $file) 
  {
  $cui->dialog("$file wurde gewaehlt\n");
  }
else 
  {
  $cui->error("Keine Datei gewaehlt\n");
  }