print "Bonjour! Veuillez saisir le rayon du cercle dont vous voulez calculer le perimetre:\n";$ray = <STDIN>;$per = 2*$ray*3.14;print "le périmètre d'un cercle de ", $ray," cm est de ", $per ," cm2\n";