sub promptFilename {
  my $prompt = shift;