#!/usr/bin/perl

$repertoire = shift;
# 1° paramère à la ligne de commande
$deuxieme_param = shift;
# 2° paramère à la ligne de commande
$troisieme_param = shift;
# 3° paramère à la ligne de commande


$lsr = `/bin/ls -R $repertoire > lsr`;

print "créez ou supprimez un fichier (dans $repertoire, ou sous-répertoire)\n";
print "\npuis faites 'ENTER'\n";
$stdin = <STDIN>;
# entrée au clavier : ne sert qu'à attendre le 'ENTER', on n'utilise pas la valeur entrée

$lsr2 = `/bin/ls -R $repertoire > lsr2`;


$diffllr = `diff lsr lsr2`;
print $diffllr;