It doesn't do you much good unless you want to be real adventurous, but in Perl 5.10 (available as a beta download on ActiveState) you'll be able to say:

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";
[download]

The beta is available for Windows, but whether to use it or not is completely up to you.