or download this
use Compiler::Errors 'file.out'; # will append
use Compiler::Errors '>file.out'; # will overwrite
use Compiler::Errors '>>file.out'; # will append
use Compiler::Errors '| program'; # will pipe
use Compiler::Errors '>&=1'; # dup to fd