die unless ( $answer eq 'Y' or $answer eq 'y' );