#!/usr/bin/env perl
use warnings;
use 5.10.0;
use open qw(:std :utf8);
use Term::Choose::Util 0.134;

# Eins
my $new = Term::Choose::Util->new();
my $chosen_directory = $new->choose_a_directory();
say $chosen_directory if defined $chosen_directory;
my $chosen_file = $new->choose_a_file();
say $chosen_file if defined $chosen_file;

say "=" x 50;

# Zwei
$new = Term::Choose::Util->new( { prompt => '' } );
$chosen_directory = $new->choose_a_directory();
say $chosen_directory if defined $chosen_directory;
$chosen_file = $new->choose_a_file();
say $chosen_file if defined $chosen_file;