#!/usr/bin/perl 

use strict;
use warnings;

my $name    = "Perl Audio Converter";

sub help_PT {

print "$name

Formatos suportados: 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,
Opções:
  -f     --file=f        Ficheiro de entrada (pode ser utilizado várias vezes)
  -d     --dir=d         Pasta de entrada (pode ser utilizado várias vezes)
  -o     --outdir=d      Pasta de saída (--dir)
  -p     --outfile=f     Ficheiro de saída (--file) (um ficheiro apenas)
  -re    --recursive     Percorrer as pastas recursivamente (--dir)
  -pd    --presdir       Conserver la structure du répertoire (--recursive)
  -ct    --convertto=s   Converter as pastas/ficheiros/listas para <formato>
  -u     --uopts=s       Opçoes para o codificador fornecidos pelo utilizador
  -pl    --playlist=s    Converter os ficheiros da playlist
  -ov    --overwrite     Substitui o ficheiro de destino se este já existir
  -th    --taghelp       Opções de leitura/escrita das tags
  -rh    --riphelp       Opções de ripagem de CD
  -vh    --videohelp     Lista dos codecs de vídeo suportados
  -lh    --longhelp      Lista completa das opções
                              
Utilização: pacpl --[formattoformat]   [options] [ficheiros/pastas]
            pacpl --convertto [format] [options] [ficheiros/pastas]
  "; 
  
exit(0);
 
} 

1;