# Perl Program to illustrate the Operators

# Operands
$a = 10;
$b = 4;
$c = true;
$d = false;

# using airthmetic operators
print "Addition is: ", $a + $b, "\n";
print "Subtraction is: ", $a - $b, "\n" ;

# using Relational Operators
if ($a == $b)
{
print "Equal To Operator is True\n";
}
else
{
print "Equal To Operator is False\n";
}

# using Logical Operator 'AND'
$result = $a && $b;
print "AND Operator: ", $result, "\n";

# using Bitwise AND Operator
$result = $a & $b;
print "Bitwise AND: ", $result, "\n";