#!/usr/bin/perl
open(FILEOUT,">perimetre.txt");#on ouvre le fichier sur lequel on va écrire
print "Veuillez saisir un rayon\n";
$rayon=<STDIN>;
$perimetre=2*3.1415*$rayon;
print FILEOUT "Le perimetre du cercle est : $perimetre";
close(FILEOUT);# on ferme le fichier en sortie