Pourquoi savoir coder devient une priorité dans l'éducation aujourd'hui ?

use Lingua::Romana::Perligata;
maximum inquementum tum biguttam egresso scribe.
meo maximo vestibulo perlegamentum da.
da duo tum maximum conscribementa meis listis.
dum listis decapitamentum damentum nexto
  fac sic
    nextum tum novumversum scribe egresso.
    lista sic hoc recidementum nextum cis vannementa da listis.
cis.

print STDOUT 'maximum:';
my $maxim = ;
my (@list) = (2..$maxim);
while ($next = shift @list)
  {
    print STDOUT $next, "\n";
    @list = grep {$_ % $next} @list;
}