#!/usr/bin/perl  
use IPC::Open3;
use strict;
use warnings;

my $pid = open3(\*WRITER, \*READER, \*ERROR, "make");
open(ERROR_LOG, ">", "error_log");
while (my $line = <ERROR>) {
	print $line;
	print ERROR_LOG $line;
}
close(ERROR_LOG);
waitpid($pid, 0);