#!/usr/bin/perl -w

input:
print "Precio de compra ofertado por un bono de 10000 euros a 10 años: ";
chomp ($p = <STDIN>);
goto input if ($p >= 10000 || $p < 2000 || 0+$p ne $p);
$is = (10000-$p)/$p;
# (1+i_a)^10 = (1+is)
# i_a = (1+is)^(1/10) - 1
$ia = (1+$is)**(1/10) -1;
printf ("Interés simple = %03.2f%%\n", (100*$is/10));
printf ("Interés compuesto = %03.2f%%\n", (100*$ia));
exit 0;