$cmd->{output} = qx($cmd_str); if ( defined $cmd->{output} ) { $cmd->{child_ret_code} = $?; chomp $cmd->{output}; } else { ($cmd->{sys_ret_code}, $cmd->{sys_ret_msg}) = ($!, '|'.$!.'|'); }