#!/usr/bin/perl

use warnings;
use strict;

my $x = 0;
# Trouver les nombres pairs entre 0 et 1000