#!/usr/bin/perl -w

use strict;

my $y=0; my $z=0;
my $a=0; my $b=0; my $c=0; 

my $x = 10 + 4 * 2**16 / 4;

# These evalute the same, with or without parentheses:
($y == $z) or die "A They're not equal!";
($y == $z) || die "B They're not equal!";


# This assigns $y first or second, depending on which "or" or "||"
# is used; also, depending on the value of $z, the right side 
# of || might not get evaluated
$z=1;
$y = $z || die "They're not equal!";


if ( ( (not $a) and $b) or $c) { print "!a |c\n"; }

 
