#!/src/bin/perl -w
print "veuillez saisir le rayon:\n";
$rayon = <STDIN>;
if($rayon)
{
	$P= 2*(3.14)*$rayon; #le périmètre d'un cercle P = 2 p R  =>P=périmètre, p=3.14, R=rayon 
	print "Le périmètre dU cercle est de = ".$P."\n" ;
}