#!/usr/bin/perl
  open( MANTA, ">clientes");
  while(1){
    print "Cliente\n";
    chop( $paganini = <STDIN> );
    last if !$paganini;
    print "Valor inmueble\n";
    chop( $valor= <STDIN> );
    $comision = $valor * 0.25;
   print "Comision = $comision\n";
   print MANTA "$paganini $comision\n";
 }
 close MANTA;