#!/usr/bin/perl -w
#On affiche "Donnez-moi le rayon (en cm) du cercle dont il faut calculer le périmètre : "
print "Donnez-moi le rayon (en cm) du cercle dont il faut calculer le perimetre : ";
#On affecte à la variable $rayon le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
$rayon=<STDIN>;
#On calcule le périmètre du cercle et on affecte le résultat à la variable $perimetre
$perimetre=2*3.14159265*$rayon;
#On affiche "Le perimetre du cercle est de ", suivi du contenu de la variable $perimetre, et suivi de " cm."
#On retourne à la ligne
print "Le perimetre du cercle est de ",$perimetre,"cm.\n";