Help for this page
close(STDIN); system($ci, '-u', '-zLT', $file);
open(STDSAVE, "<&STDIN"); close(STDIN); system(...); open(STDIN, "<&STDSAVE");