#!/usr/bin/perl 

use strict;
use warnings;

my $name    = "Perl Audio Converter";

sub help_FR {

print "$name

Formats supportés: mp2, mp3, ogg,  flac, fla, ape, shn,  aac, m4a,  mp4, mpc, 
                   mpp, wv,  ofr,  ofs,  tta, pac, lpac, kxs, aiff, au,  snd, 
                   ac3, la,  bonk, raw,  voc, smp, avr,  cdr, wav,  wma, ra,   
                   ram,
Options:
  -f     --file=f        Fichier d'entrée (peut être utilisé plusieurs fois)
  -d     --dir=d         Répertoire d'entrée (peut être utilisé plusieurs fois)
  -o     --outdir=d      Répertoire de sortie (--dir)
  -p     --outfile=f     Fichier de sortie (--file) (un seul fichier)
  -re    --recursive     Parcourir le répertoire récursivement (--dir)
  -pd    --presdir       Conserver la structure du répertoire (--recursive)
  -ct    --convertto=s   Convertir les répertoire(s)/fichier(s)/playlist(s)
  -u     --uopts=s       Options encodeur de l'utilisateur
  -pl    --playlist=s    Convertir les fichiers en playlist
  -ov    --overwrite     Réécriture du fichier de destination      
  -th    --taghelp       Options de lecture/écriture des tags
  -rh    --riphelp       Options d'extraction CD
  -vh    --videohelp     Liste des codecs vidéos supportés
  -lh    --longhelp      Liste complète des options
                              
Utilisation: pacpl --[formattoformat]   [options] [fichiers/répertoiress]
             pacpl --convertto [format] [options] [fichiers/répertoiress]
  "; 
  
exit(0);
 
} 

1;