tee3.pl

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;

use Capture::Tiny 'tee';
use Path::Tiny;

die "Usage: $0 <outfile> <errfile> <command ...>\n"
    unless @ARGV > 2;

my ($of, $ef, @cmd) = @ARGV;

my ($out, $err, $rc) = tee { system(@cmd) };

die "Error executing '@cmd': $!" if $rc < 0;

path($of)->spew($out);
path($ef)->spew($err);
exit( $rc & 255 ? 1 : $rc >> 8 );