Código
#!/usr/bin/perl use strict; my @Operacion = ('+', '-','*',"/"); my @Signos = ('<','>',"<=", ">="); my $Aleatorio; my $archivo = <<"FIN_DATOS"; x = 5 r = 1 while 0 F x r = r J x x = x K 1 endwhile write r end FIN_DATOS $archivo =~ s/J/$Operacion[$Aleatorio]/; $archivo =~ s/K/$Operacion[$Aleatorio]/; $archivo =~ s/F/$Signos[$Aleatorio]/; exit;
Cada vez que lo ejecutes te generará un archivo diferente en la ruta en la que este el script.
espero que te sirva...
saludos.