Select Code to Download

sub ops_do_ssh_qx {
   my ($cmd) = @_;
...

   return $cmd;
}

my $cmd = { name => 'foo',
            user => 'foo_user',
...
            command => 'do_something_useful_here',
            success => SUCCESS
};

my $cmd_status = ops_do_ssh_qx($cmd);
if ( $cmd_status->{success} ) {
...
{
   do_something_with $cmd_status->{cmd_ret_code}, $cmd_status->{ssh_re
+t_code}, $cmd_status->{ssh_ret_msg};
}

   $cmd_status->{cmd_ret_code}
   $cmd_status->{ssh_ret_code}
   $cmd_status->{ssh_ret_msg}