#!/usr/bin/perl 
print"veuillez entrer un retour chariot\n";
while($ligne=<STDIN>)
{
print "veuillez entrer les valeurs de a et b\n";
print "\$a = ";
$a = <STDIN>;
print "\$b = ";
$b = <STDIN>;

print "\$a.\$b=",$a*$b;
}