use locale;
#!/usr/bin/perl

#On affiche à l'écran:
print "Veuillez saisir le rayon d'un cercle afin de determiner son perimetre:\n";

#L'argument vient de la saisie du clavier:
$r=<STDIN>;


#Pour calculer le périmètre d'un cercle
#On procède au calcul suivant: 2x pi x le rayon:
$p=2*3.141592655*$r;


#On affiche le résultat
print "Le perimetre d'un cercle de rayon $r cm est de $p cm\n";







