#!/usr/bin/perl -w

sub confiesa {
    my $expr = shift;
    my $label = shift;
    print "$label = $expr = ";
    my $out = eval($expr);
    print "$out\n\n";
    return $out;
}

__END__
  
Esta utilidad nos sirve para documentar cálculos a mano:
  
#!/usr/bin/perl -w

do "confiesa.pl";

print <<EOT;

¿Cuánto vale la perpetuidad de una plaza de garaje si
  la renta mensual es de 80 euros y el interés libre 
  de riesgos es de solo un 2 %?
  
EOT
  
$I = 0.02;
$R = 80;

confiesa("$R*12/$I", "Perpetuidad");

exit 0;