IPC::Run::run([$someProg,...],'>output.txt');

##</code><code>##

 .... '|perl guarded_tee.pl output.txt'