#!/usr/bin/perl

use 5.040.3;
# use utf8;

# Captcha para humanos que no sean
# imbéciles ni de letras /* romanas */
#
# mié 27 may 2026 11:51:34 CEST
# mié 27 may 2026 09:51:42 GMT
# Jesús Lozano Mosterín, 2026

my ($x, $y);  # 2 variables numéricas
$x = 1 + int( 10 * rand() );
$y = 1 + int( 8 * rand() ); 
# el número gordito, no está nada mal

my @list = qw(1 2 3 4 5 6);

my $p1;
$p1 = $list[ int (rand() * scalar(@list)) ];

my $file = "eq2-captcha\." . scalar(localtime()) . "\.out"; 
$file =~ s/ /_/g;

open my $fh, '>>', $file or goto end;
print $fh "\n";
print $fh "x \+ $p1 \* y \= $x\n\n" . " 2 \* x \+ 3 \* y \= $y\n\n";
close $fh;

system "cat $file";
say "\n\n";
system "lpr $file";

print "$0 exit status OK\n\n";
end:
exit 3;  # ---> versión lanzamiento

__END__
A la memoria del dibujante de Axtur
A la meoria de AVICII
¡A la memoria de todos los Asturianos y Españoles, gamberros!