#!/usr/bin/perl

use 5.038;

m2:
print "Introduzca el tamaño en m^2 : ";
chomp (my $m2 = <STDIN>);
goto m2 unless ($m2 >= 1);

renta:
print "Introduzca la renta mensual en euros : ";
chomp (my $renta = <STDIN>);
goto renta unless ($renta > 10);

interes:
print "Introduzca el interés anual en tanto por uno : ";
chomp (my $rate = <STDIN>);
goto interes unless ($rate > 0 && $rate < 1);

my $anual = $renta * 12;
my $actual = $anual / $rate;

say "El valor del inmueble es de ", $actual;
say "El precio del suelo, m^2 es de ", $actual/$m2;

exit 2;

__END__
  
Introduzca el tamaño en m^2 : 130
Introduzca la renta mensual en euros : 600
Introduzca el interés anual en tanto por uno : 0.03
El valor del inmueble es de 240000
El precio del suelo, m^2 es de 1846.15384615385