#!/usr/bin/perl
use strict;
my $directory = pop @ARGV;
unless($directory =~ ///$/){
    die "usage coincion /xxxx/xx/\n";
}
my @glob = <*.test>;
my $compteur_fichiers;
foreach my $val (@glob){
    unless(-d $directory . $val){
        rm $directory . $val or die "Impossible de supprimer le fichier $directtory$val\n";
        $compteur_fichiers++;
    }
}