*sigh*

BEGIN {
    use IO::Tee;
    $ol = select IO::Tee->new( STDOUT, STDERR, IO::File->new...);
}
[download]

I wouldn't encourage things like IO::Capture