Help for this page
die unless ( $answer eq 'Y' or 'y' );
die unless ( $answer eq 'Y' or $answer eq 'y' );