use integer;

​

$a = 60;

$b = 13;

​

print "Value of \$a = $a and value of \$b = $b\n";

​

$c = $a & $b;

print "Value of \$a & \$b = $c\n";

​

$c = $a | $b;

print "Value of \$a | \$b = $c\n";

​

$c = $a ^ $b;

print "Value of \$a ^ \$b = $c\n";

​

$c = ~$a;

print "Value of ~\$a = $c\n";

​

$c = $a << 2;

print "Value of \$a << 2 = $c\n";

​

$c = $a >> 2;

print "Value of \$a >> 2 = $c\n";

​