use Tee;
use File::Temp qw(tempfile);
my ($fh, $filename) = tempfile();
close $fh;

tee("your_command", $filename);