$ perl -MO=Deparse,-p -e  'die unless ( $answer eq "Y" or  "y");'
((($answer eq 'Y') or 'y') or die);
-e syntax OK