use IPC::Run qw( run );

run \"$com", "$arg", ">" , $output,  "2>&1" , "&";