$a = 5;
$b = 4;
$c =  $a + $b;
print "Add:\t$c\n";
$c =  $a - $b;
print "Sub:\t$c\n";
$c =  $a * $b;
print "Mult:\t$c\n";
$c =  $a / $b;
print "Div:\t$c\n";
