use IPC::Run3;   

run3 \@cmd, \$in, \$out, \$err;