1#!/usr/bin/perl 2 3# Copyright 2013-2019, Paul Johnson (paul@pjcj.net) 4 5# This software is free. It is licensed under the same terms as Perl itself. 6 7# The latest version of this software should be available from my homepage: 8# http://www.pjcj.net 9 10my $x = 1; 11my $y = 1; 12 13if ($x && !$y) { 14 die "Urgh"; 15} 16 17if ($x && $y) { 18} 19 20unless ($x && $y) { 21 die "Urgh"; 22} 23 24if (!($x && $y)) { 25 die "Urgh"; 26} 27 28if (!$x || !$y) { 29 die "Urgh"; 30} 31