Select Code to Download

#!/usr/bin/perl -w

...
 }
&rien2rien(@ut);

in sub:         bla      bleu 
in sub:         bli      blo
in main:        bla      bleu 
in main:        bli      blo
in other sub:   bla      bleu