sub safe_exit {
  ReadMode('normal');
  exit(@_);
}

# ...
   safe_exit if $key eq 'q';
# ...