can't read "argv": no such variable
    while executing
"llength $argv"

OUTPUT BUFFER:
source /usr/local/apache2/PourRivet/SessionBeforeScript.tcl
#!/usr/local/bin/tclsh

set TclDir "/home/ripp/www/PublicDirectory/TclRipp"
source "$TclDir/BasicTclTools.tcl"

source "[file dirname [file normalize [info script]]]/CG_Procedures.tcl"
# pour sourcer le fichier qui se trouve dans le meme repertoire

if {[llength $argv]==0} {
    puts "Usage : Traduction.tcl NomDuFichierSequence"
    puts " par exemple "
    puts " Traduction.tcl /genomics/link/Pabyssi/nuctfa/PABY1135"
    puts "ou"
    puts " Traduction.tcl /genomics/link/Pabyssi/nucembl/PABY1135"
    exit
}


set Fichier [lindex $argv 0]

set Seq [SequenceDuFichier $Fichier]    ;# j'ai toute la séquence dans Seq
puts "Sequence nucleotidique:"
puts $Seq

set SeqProt ""
foreach {a b c} [split $Seq ""] {
    set Codon "$a$b$c"
    set AA [AAduCodon $Codon]
    append SeqProt $AA
}
puts "Sequence proteique traduite"
puts $SeqProt

exit