Structure de contrôle: Trouver les nombres pairs à l’aide d’une boucle do…while et ‘next if’

Author:
#!/usr/bin/perl
 
use warnings;
use strict;
 
my $x = 0;
# Trouver les nombres pairs entre 0 et 1000