#!/usr/bin/perl

$file = '/home/zac/Desktop/text.txt';

open (INFO, $file);

if ($file eq "dimitri") {

print("Le fichier est securise\n");}

if ($file ne "dimitri") {

print("Le fichier n'est pas securise\n");}

close(INFO);