use locale;
#!/usr/bin/perl -w

print "Quel est ton prenom? ";
$prenom = <STDIN>;
chomp $prenom;
print "Bonjour $prenom, comment vas-tu ? \n";
print "Quel est ton age? ";
$age = <STDIN>;
print "Donc si je comprends bien tu t'appelles $prenom et tu as $age ans !\n";