my $ssh = Net::OpenSSH->new("$user:password\@$host");
$ssh->error and die "Unable to connect $host " . $ssh->error;

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


$expect->log_file("expect.pm_log", "w");

my $result = $expect->expect(3,
                ["\[\r\n]?\[^\r\n]+\[%#>\$] \$" ,sub { shift->send("date\r"); exp_continue;}],
                [qr/Day/ , sub { my $self = shift; $self->send("touch test.txt\r"); $self->soft_close();}]
        )or die "**** Failed ** ";