Select Code to Download

sub ops_do_ssh_shell {
   my ($cmd) = @_;
...
   defined $cmd->{status} or $cmd->{status} = 'success';
   $cmd->{status} eq 'success' ? 1 : 0;
}

my $cmd = {
   user => 'oracle',
...
   };

my $status = ops_do_ssh_shell($cmd);