#!/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 # est pointeur qui permet de lire le flux d'entrée au clavier) #Le rayon donné par l'utilisateur dans l'entrée standart est stocké dans la variable: $rayon $rayon=; #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, suivi de " cm." et d'un retour à la ligne print "Le perimetre du cercle est de ",$perimetre,"cm.\n";