Here is a rough French translation. It is not great as my technical French is getting quite poor as I use mostly English these days ;--( and as I don't use any French software.

As a general comment I am afraid you are being a little too clever here. The order of words in a sentence vary between languages, and it is very difficult, if not right down impossible, to generate sentences from bits and pieces like you do. Usually if you want your software to be easily ported to other languages each message (or at least each sentence) has to be a separate string. A common trickis to use sprintf in order not to depend on the original English order:

becomes:

sprintf "config copied to %s from %s by %s\n",
         $tftpserver, $args->{h}, $user;
[download]

(note that $args->{h} will not be interpolated properly in the string by the way)

And in French:

sprintf "configuration de %s copiée sur %s par %s\n",
         $tftpserver, $args->{h}, $user;
[download]

Note that if you want to be able to change the order of parameters you will need to add yet an other indirection layer, for example the message could be stored as "configuration de $par{server} copiée sur $par{target} par $par{user}\n" and the output being done by a sub that gets passed the parameters as a hash.

Anyway, here is the translation, which will certainly be corrected by other Mongueurs.

             $lang{flag_req}      = "Pancho: Options manquantes"
             $lang{run_help}     = "Entrer $0 --help";
             $lang{no_open}      = "Impossible d'ouvrir le fichier spé
+cifié par --li";
             $lang{chk_path}     = "Veuilliez vérifier le chemin et l'
+existence du fichier";
         # I don't know if 'noeud' is the proper translation for 'node
+' here
             $lang{no_nodes}     = "Vous n'avez pas spécifié un noeud 
+ou une liste de noeuds cible";
             $lang{no_snmp}      = "Vous n'avez pas spécifié une commu
+nauté SNMP.";
             $lang{no_tftp}      = "Vous n'avez pas spécifié un serveu
+r tftp.";
         # The adjective comes after the noum in French, so you can't 
+have a hanging 'remote'
             $lang{exp_tftp}     = "Pour tftp une configuration";
             $lang{no_file}      = "Vous devez spécifier un nom de fic
+hier avec l'option -f";
         # 'telecharger' means both upload and downlod in French :--(
             $lang{no_updown}    = "Impossible d'uploader et de telech
+arger en meme temps";
             $lang{version}      = "Pancho version";
             $lang{no_log}       = "Impossible d'ouvrir le fichier log
+";
             $lang{exp_path}     = "Veuillez vérifier le chemin";
         # we're starting to hit problems here, the syntax does not ma
+tch
             $lang{copy_start}   = "Copie de la configuration de et ve
+rs startup-c";

             $lang{no_catos}     = "impossible avec CatOS.";
             $lang{no_depmib}    = "impossible avec mibs (obsoléte).";
+ # it should be a e` (è here)
             $lang{cp_success}   = "Copie effectuée vers";

               # this rarely works
             $lang{on}           = "sur";
             $lang{from}         = "de";
             $lang{to}           = "vers";
             $lang{by}           = "par";

             $lang{cp_from}      = "copié de";
             $lang{cp_to}        = "copié vers";
             $lang{to_nvram}     = "vers nvram sur";
             $lang{cp_nvram}     = "copié vers nvram sur";

             $lang{from_nvram}   = "de nvram sur";
             $lang{wr_success}   = "Configuration chargée en memoire s
+ur";
         # it's hard to fit the originalwording in a French sentence
             $lang{rel_success}  = "Rechargement des parametres de";
             $lang{init}         = "initialisation du rechargement sur
+";
[download]

Note that if you want to be able to change the order of parameters you will need to add yet an other indirection layer...

update: Okay... I should check docs less recent then the latest development version. Read this as "you won't have to in the next version of perl".

Actually, you won't. To quote the sprintf docs:

Perl supports parameter ordering, in other words, fetching the parameters in some explicitly speci fied "random" ordering as opposed to the default implicit sequential ordering. The syntax is, instead of the "%" and "*", to use "%"digits"$" and "*"digits"$", where the digits is the wanted index, from one upwards. For example:

  printf "%2\$d %1\$d\n", 12, 34;              # will print "34 12\n"
  printf "%*2\$d\n",      12, 3;               # will print " 12\n"
[download]

(... more stuff on this topic omitted ...)

I'm missing a few accents so have put capital letters midway through strings to indicate that they should be accented. I also start sentences with ! which should actually be inverted.

    $lang{flag_req}     = "Pancho: Requiere una opción o mAs.";
    $lang{run_help}     = "Tecla $0 --help";
        $lang{no_open}      = "No se puede abrir el archivo especifica
+do por --list.";
    $lang{chk_path}     = "Por favor de verificar que el archivo llama
+do sI existe en su path";
    $lang{no_nodes}     = "!No ha llamado una noda o una tabla de noda
+s para esta acción!";
    $lang{no_snmp}      = "No ha llamado una comunidad SNMP.";
    $lang{no_tftp}      = "No ha llamdo un servidor de tftp.";
    $lang{exp_tftp}     = "Para mandar a un dispositivo remoto una con
+figuración por tftp";
    $lang{no_file}      = "hay que indicar a un fichero especIfico";
    $lang{no_updown}    = "No se puede mandar y recibir al mismo tiemp
+o.";
    $lang{version}      = "Pancho versión";
    $lang{no_log}       = "No podrIa arrancar al fichero llamado";
    $lang{exp_path}     = "Por favor de verificar el path llamado.";
    $lang{copy_start}   = "No se puede copiar configuraciones de start
+up-config al mismo tiempo que copie configuraciones a startup-config"
+;
    $lang{no_catos}     = "cuando se usa CatOS.";
    $lang{no_depmib}    = "cuando se usa el mibs (desaprobado)";
    $lang{cp_success}   = "Config copiado a";
    $lang{on}           = "en";
    $lang{from}         = "de";
    $lang{to}           = "a";
    $lang{by}           = "por";
    $lang{cp_from}      = "copiado de";
    $lang{cp_to}        = "copiado a";
    $lang{to_nvram}     = "al nvram en";
    $lang{cp_nvram}     = "copiado al nvram en";
    $lang{from_nvram}   = "copiado de nvram en";
    $lang{wr_success}   = "Configuración guardó en";
    $lang{rel_success}  = "Empezó el proceso de recargar";
    $lang{init}         = "empezar del proceso de recargar en";
[download]

btw, if you would like, I can translate those sentences for you into russian