print "I will calculate whatever\n",
      "you specify according to\n",
      "Ohm's law. What shall I\n",
      "calculate? Type either\n",
      "voltage, current, or\n",
      "resistance.\n";

my $i = 0;
....