print "Type the current of the circuit.\n";
chomp (my $current = <STDIN>);

print "Now type the resistance of the circuit.\n";
chomp (my $resistance = <STDIN>);