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