use warnings;
use strict;
use 5.010;

use Term::UI;
use Term::ReadLine;

my $term = Term::ReadLine->new();
my $filename = $term->get_reply(
    prompt => "Where is the file? ",
    default => "C:/Data/toload.txt",
);

say "Filename: $filename";