#!/usr/bin/perl

my $nntpmntp = 10;
while($nntpnmtp>5) {
   print "$nntpmntp\n";
   $nntpmntp --;
}

my $x = "oui";
my $y = "non";
if( $x == $y ) {
   print "c'est dingue!\n";
}
else
{
   print "tout va bien\n";
}

print "2"."9"+"5"."\n";