Shell Programming and Scripting

#!/usr/bin/perl
print "\t----------Welcome to Maths Tool-----------\n";
do
{
print "Enter your choice :";
print "\n\t1)Addition\n\t2)Subtraction\n\t3)Multiplication\n\t4)division\n";
$a = <>;
if ($a == 1)
{
print "\nHow many numbers you wanna add...??\t";
chomp($b = <>);
print "Enter $b numbers : \n";
for ($count = 1; $count <= $b; $count++)
{
$c = <>;
$d = $d + $c;
}
print "Addition is : $d\n";
}
elsif ($a == 2)
{
print "\nEnter two numbers to subtract :\n";
$b = <>;
$c = <>;
$d = $b - $c;
print "Subtraction is : $d\n";
}
elsif ($a == 3)
{
print "\nHow many numbers you wanna multiply...??";
chomp($b = <>);
$d = 1;
print "\nEnter $b numbers : \n";
for ($count = 1; $count <= $b; $count++)
{
$c = <>;
$d = $d * $c;
}
print "Multiplicationn is : $d\n";
}
elsif ($a ==4)
{
print "\nEnter two numbers to subtract :\n";
$b = <>;
$c = <>;
$d = $b / $c;
print "Division is : $d\n";
}
else
{
print "\nWRONG CHOICE!\n";
}
print "\nDo u want to continue <y/n>";
chomp($var = <>);
} while($var eq "y");
print "\n\t------------Thanks for using Maths Tool--------------\n\n";