close(STDIN);
system($ci, '-u', '-zLT', $file);

##</code><code>##

open(STDSAVE, "<&STDIN");
close(STDIN);
system(...);
open(STDIN, "<&STDSAVE");