[Expert@mytest_gw:0]# dbedit --h
Usage: dbedit [-local] | [-s server] [-c certificate file | -u user] [-p password] [-f filename] [-r db-open-reason] [-help] [–ignore_script_failure] [-continue_updating]

Commands:

create <object_type> <object_name>
modify <table_name> <object_name> <field_name> <value>
rename <table_name> <object_name> <new_object_name>
update <table_name> <object_name>
update_all
delete <table_name> <object_name>
print <table_name> <object_name>
printxml <table_name> <object_name>
whereused <table_name> <object_name>
addelement <table_name> <object_name> <field_name> <value>
rmelement <table_name> <object_name> <field_name> <value>
rmbyindex <table_name> <object_name> <field_name> <index_number>
add_owned_remove_name <table_name> <object_name> <field_name> <value>
is_delete_allowed <table_name> <object_name>
set_pass <user> <password>
quit [-update_all|-noupdate]

#!/usr/bin/perl
use Net::OpenSSH;
my $host = "10.100.110.51";
my $user = "admin";
my $pass = "my_pw";

#$Net::OpenSSH::debug=-1;

my $ssh = Net::OpenSSH->new(host=>$host, 
                            user=>$user,
                            password=>$pass,
                            master_opts => [-v, -o => "StrictHostKeyChecking=no"],
                            );
$ssh->error and die "Couldn't establish SSH connection: ". $ssh->error;

my $xxx = "source  /opt/CPshrd-R77/tmp/.CPprofile.sh ; /opt/CPsuite-R77/fw1/bin/dbedit --h";

  #my (@ls,$errput) = $ssh->capture2({tty => 1},"/opt/CPsuite-R77/fw1/bin/dbedit --h");
  my (@ls,$errput) = $ssh->capture2({tty => 1},$xxx);
  $ssh->error and
    die "remote ls command failed: " . $ssh->error;
print"LS:@ls\n";
print"ERR:$errput\n";