correct this:

to:

Thanks for the advice. Let me give it a swing.

Everything is functioning now. Next I'll try to convert it into subroutines like another poster suggested. I have to do some reading up.

#####################

print 'Welcome to the Calculator.';
print "\n\n";
print 'Would you like to enter the calculator? Please Type y or n: ';
$run = <stdin>;
chomp $run;
# FIXED THE PROBLEM while ($run eq "y")
{
{
print "Add = 1 | Subtract = 2 | Multiply = 3 | Divide = 4 |Exponent = 5 | Mod = 6 \n";
print 'Enter the corresponding number to the caluclation to be performed:';
$calc = <stdin>;
chomp $calc;
print 'Please enter the first value: ';
$A = <stdin>;
chomp $A;
print 'Please enter the second value: ';
$B = <stdin>;
chomp $B;

if($calc == 1)
{
$answer = $A + $B;
}
elsif($calc == 2)
{
$answer = $A - $B;
}
elsif($calc == 3)
{
$answer = $A * $B;
}
elsif($calc == 4)
{
$answer = $A / $B;
}
elsif($calc == 5)
{
$answer = $A ** $B;
}
elsif($calc == 6)
{
$answer = $A % $B;
}
print "The answer is $answer .\n";
}
print 'Would you like to perform another calculation? Please Type y or n: ';
$run = <stdin>;
#FIXED THE PROBLEM chomp $run;
}


print 'The application is now terminated.';
[/CODE]

Thank You everyone.