use Term::Clui;
my $filename = ask("Please enter a filename:","C:\test.txt");