#!perl

use strict;
use warnings;
use IO::Prompt;

my $dir = prompt("Pick a directory", -default => "C:/Temp");
print "\n\nPicked: $dir\n";