until(0) {
       print "Cliente\n";
       chop( $paganini = <STDIN>);
       last if !$paganini;
       print "Valor inmueble\n";
       chop($valor = <STDIN>);
       $comision = $valor * 0.25;
       ($seg, $min, $hora, $dia, $mes, $anho, @zape) = localtime(time);
       $mes++;
      $anho+=1900;
      $zipi = "$paganini $comision $hora:$min $dia/$mes/$anho\n";
      push( @mem, $zipi );     
 };
 
 open (MANTA,">clientes.mas");
 foreach (sort @mem ) {
      print MANTA;
 }
 close (MANTA);