# $rSelectInfoRef = (the connection infomation from oracle)
$host = $rSelectInfoRef->[0][2];
$user = $rSelectInfoRef->[0][3];
$password = $rSelectInfoRef->[0][4];

print "[DEBUG] $host|$user|$password|n";

my $sftp;

eval {
    $sftp = Net::SFTP->new($host, user=>$user, password=>$password);
};
if( $@ ) {
    print "[ERROR] $@";
    exit -1;
}

#$host = $rSelectInfoRef->[0][2];
#$user = $rSelectInfoRef->[0][3];
#$password = $rSelectInfoRef->[0][4];

$host = "168.16.5.110";
$user = "test";
$password = "000000";
print "[DEBUG] $host|$user|$password|n";

my $sftp;

eval {
    $sftp = Net::SFTP->new($host, user=>$user, password=>$password);
};
if( $@ ) {
    print "[ERROR] $@";
    exit -1;
}