#! /usr/local/bin/perl
 
$fichier_1="c:/test.txt";
chmod(0400, $fichier_1);  # le propriétaire du fic