#!/usr/local/bin/perl
$var1="33";
$var2="44";
$var3="55";
print ("var1 a la valeur : $var1\n");
print ("var2 a la valeur : $var2\n");
print ("var3 a la valeur : $var3\n");

$somme=$var1+$var2+$var3;
print ("la somme des trois variables est : $somme\n");

$produit=$var1*$var2*$var3;
print ("le produit des trois variables est : $produit\n");

$tmp=$var1;
$var1=$var2;
$var2=$var3;
$var3=$tmp;
print ("var1 a la valeur : $var1\n");
print ("var2 a la valeur : $var2\n");
print ("var3 a la valeur : $var3\n");