#!/usr/bin/perl -w
#Dire à l'utilisateur d'entrer un rayon de cercle
print "Entrez le rayon d'un cercle et vous obtiendrez son périmetre : ";
#Création variable $rayon affectée au contenu du flux d'entrée du clavier
$rayon=<STDIN>;
#Calcul du périmètre du cercle et affectation du résultat à la variable $perimetre
$perimetre=2*3.14159265*$rayon;
#Afficher le résultat
print "Le perimetre du cercle de rayon " ,$rayon,"est de ",$perimetre," cm.\n";
