print STDERR ("Directory \'$$pref{changedir}\' aleady exists. Overwrite?\n".
  "[Y(es)/N(o)/R(eselect destination)/C(lobber all duplicates)]".
  "\a\n");
my $answer = <STDIN>;
chomp ($answer);     # line 106 (see below)
print "$answer\n";   # for testing purposes