open(FOO, "|tr '[a-z]' '[A-Z]'");
open(FOO, "|-") || exec 'tr', '[a-z]', '[A-Z]';

open(FOO, "cat -n file|");
open(FOO, "-|") || exec 'cat', '-n', 'file';
