#!/usr/bin/perl -w

use 5.030;

uno:
print "Tipo de interés del periodo unitario (positivo): ";
chomp (my $int = <STDIN>); 
goto uno if (0+$int ne $int || $int <= 0);

dos:
print "Tiempo a capitalizar (positivo) o descontar (negativo): ";
chomp (my $t = <STDIN>);
goto dos if (0+$t ne $t);

tres:
print "Capital a trasladar (positivo): ";
chomp (my $C = <STDIN>);
goto tres if (0+$C ne $C || $C <= 0);

my $result = $C * exp($int * $t);

my $operation = ($t >= 0 ? "capitalizado" : "descontado");

say "El capital $operation es de $result";

exit 0;