my $BASE='/test';
    
    @cmd='ls -lt '.$BASE.'/Logs/*.log';
    my $ssh = Net::OpenSSH->new("$user:$pass\@$host", master_opts => [-o => "StrictHostKeyChecking=no" ]) or warn "Can't ssh to $host: " . $ssh->error;
    if ($ssh->error) {print runlog "SSH connection to $host failed: " . $ssh->error; die ; }
    
    my($stdout, $stderr)=$ssh->capture2({tty=>1},@cmd);
    #my($stdout, $stderr)=$ssh->capture2(@cmd);
    if ($stderr) {print "get logs failed $stderr\n";}else{print "$stdout\n$exit";}
    $ssh = Net::OpenSSH->new("$user:$pass\@$host", master_opts => [-o => "StrictHostKeyChecking=no" ]) or warn "Can't ssh to $host: " . $ssh->error;
    my($stdout, $stderr, $exit)=$ssh->scp_get({glob=>1},$BASE.'/Logs/*.log','/var/tmp');
    if ($stderr) {print "get logs failed $stderr\n";}else{print "$stdout\n$exit"