#!/usr/local/bin/perl -w

$int = $ARGV[0];

die "Necesito un interés en tanto por uno" if (!defined $int);

$ant = 1;
print "Por períodos, inversión nueva necesaria sobre la inicial\n";
while (1){
    $new = $ant + $ant*$int;
    $periodo++;
    print "$periodo) Se deben conseguir fondos de ",int($new*100)/100,
      " veces el inicial\n";
    $ant = $new;
    last if ($new > 1000);
}

__END__

Cuanto más alto es el interés por período, antes quiebra el estafador
  tipo Ponzi.