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