Demonstrate arithmetical operators in Perl

Program:

$a = 21;

$b = 10;

print "\ta = $a\n\tb = $b\n";

$sum = $a + $b;

print "\nValue of $a + $b = " . $sum . "\n";

$sub = $a - $b;

print "Value of $a - $b = " . $sub . "\n";

$mul = $a * $b;

print "Value of $a * $b = " . $mul . "\n";

$div = $a / $b;

print "Value of $a / $b = " . $div . "\n";

$rem = $a % $b;

print "Value of $a % $b = " . $rem. "\n";

$c1 = $a**2;

$c2 = $b**2;

print 'Square of a = ' . $c1 . "\n";

print 'Square of b = ' . $c2 . "\n";

Expected O/P:

a = 21

        b = 10

Value of 21 + 10 = 31

Value of 21 - 10 = 11

Value of 21 * 10 = 210

Value of 21 / 10 = 2.1

Value of 21 % 10 = 1

Square of a = 441

Square of b = 100