#!/usr/bin/perl

$a = 4;
$b = 23;
if ($a < $b)
{
  print ($a. " est plus petit que ".$b."\n");
}
else
{
  print ($a. " est plus grand que ou egal a ".$b."\n");
}
if ($a lt $b)
{
  print ($a. " est plus petit que ".$b."\n");
}
else
{
  print ($a. " est plus grand que ou egal a ".$b."\n");
}	
