# No.37 Perl Sample (code key - 74)
# Learning Perl: do mathmatics （簡単な計算をする）
# Tomonori Nagano <tnagano@gc.cuny.edu>
# Last Update: January 18, 2008
#
# This file is encoded in Unicode (UTF-8). If you see gibberish characters, 
# please re-encode the file in utf-8. 
# 

$a = 12 ;						# assign 12 to $a
$b = 30 ;						# assign 30 to $b

print "Addition of $a and $b       : ",$a+$b,"\n" ;		# addition
print "Subtraction $b from $a      : ",$a-$b,"\n" ;		# subtraction
print "Multiplication of $a and $b : ",$a*$b,"\n" ;		# multiplication
print "Division of $a by $b        : ",$a/$b,"\n" ;		# division