Select Code to Download

sub promptFilename {
  my $prompt = shift;

  print $prompt . "\n";

  my $file;
  while(! $file){
    $file = <>;

    chomp($file);

    $file =~ s/^"(.+)"$/$1/;  # unquote

  }
  return $file;
}