#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long qw(GetOptions);
use Expect;
use Net::OpenSSH;


my $user = ''; #linux login user name
my $pswd = ''; # Password
my $host = ''; #Host name or machine
my $fuser = ''; #functional user or sudo user 

#Connect to host using OpenSSH
my $ssh = Net::OpenSSH->new("$user:$pswd\@$host");
if($ssh->error) {
    print "Unable to connect $host " . $ssh->error;
	exit;
}

my $expect;
#sudo su
    my ( $pty, $pid ) = $ssh->open2pty( { stderr_to_stdout => 1 }, "sudo su - $fuser" )
      or die "Failed to attempt sudo su - $fuser";
    $expect = Expect->init($pty);

$expect->exp_internal(1);
$expect->log_file("/tmp/expect.log", "w");

my $before;
my $exit1;
my $output;
my $result = $expect->expect(
    undef,
    [
        "\[\r\n]?\[^\r\n]+\[%#>\$] \$",
        sub {
            my $self = shift;
            $self->send("ls \r");
        }
    ]
) or custom_error( "Expect Failed ");



$expect->hard_close();

exit 0;


sub custom_error {
    my $error = shift;
    print "Error : $error\n";
    #some other operations
    exit 1;

}