#!/usr/bin/perl -w

if (@ARGV) {
    @paths=@ARGV;
} else {
    @paths=("");
}

@files=();
foreach (@paths) {
    if (-f) {
	push @files,$_;
    } elsif ((-d) or ($_ eq "")) {
	s{(?<=.)/?$}{/};
	push @files,sort {uc($a) cmp uc($b)} glob("$_*.{avi,AVI,ogm,OGM,mkv,MKV}");
    }
}
if (@files) {
    system("file-lsavi",@files) or die "L'excutable file-lsavi est introuvable.\n";
} else {
    print "Rien  lister.\n";
}
