Select Code to Download

print "A?="; chomp(my $a=<STDIN>);
print "B?="; chomp(my $b=<STDIN>); #get Ax**2+Bx+C values
print "C?="; chomp(my $c=<STDIN>);
...
my $ans2=(($b x -1)-sqrt(($b**2) - 4 x $a x $c)) / (2 x $a);

print "Answers:  $ans1 AND $ans2\n\n";