use locale;
#!/usr/bin/perl
print "Donnez un nombre : ";
$a=<>;
chomp($a);
print "Donnez un autre nombre : ";
$b=<>;
chomp($b);
print "La variable \$a contient $a\n";
print "La variable \$b contient $b\n";