perlsec à l'aide

Bonjour,

J'essaie de mettre tous mes pgms perl avec l'option -T.

dans perlsec :
open(FOO,"echo $arg|");     # Pas Ok, mais...
open(FOO,"-|")  or exec 'echo', $arg;   # Ok

J'ai une ligne du style
open(FOO,"$cde $arg 2>&1 |"); # cde 1

Je n'arrive pas à la transformer en
open(FOO,"-|") or exec $cde, $arg;
Je ne sais pas où mettre le 2>&1

si quelqu'un pouvait m'aider...

sans l'option -T la ligne où j'ai mis "cde 1" me rapatrie les msgs du pgm
$cde
Mais cela ne passe pas avec l'option -T ;o(

merci
anne