print "Valor del inmueble? "; 
  $valor = <STDIN>; 
  $comision = $valor * 0.25; 
  print "Comision = $comision\n";