#!/usr/bin/perl

use Net::OpenSSH;

my $host = "enfcdb01";
my $user = "loguser";
my $password = "cIhyv46iPL8092t";


##-- set up a new connection
my $ssh = Net::OpenSSH->new($host, user => "loguser");

  $ssh->error and die "Couldn't establish SSH connection: ". $ssh->error;

  my @ls = $ssh->capture("ls");
  $ssh->error and
    die "remote ls command failed: " . $ssh->error;

print @ls;

  my @out = $ssh->capture({tty => 1, stdin_data => "$password\n"},
                          'sudo', '-Sk',
'-p', '',
                          '--',
                          'su - imail; ls');


print "the value of out is \n";
print "$out[0]";