open SAVEERR, ">&STDERR";
open SAVEOUT, ">&STDOUT";
$|=1;
...rest of script...
close STDERR;
open STDERR, ">&main::SAVEERR";
close STDOUT;
open STDOUT, ">&main::SAVEOUT";