use IPC::Run qw( run ) ;
run \@cmd, \$in, \$out, \$err;