#!/usr/bin/perl

$a = "toto";
if ($a eq "toto");
  {
    print ("la chaine de caractere vaut toto\n");
  }
else
  {
    print ("la chaine de caractere est differente de toto\n");
  }
