#!/usr/bin/perl

use strict;
use warnings;

use Net::OpenSSH;
use Expect;

my $host = $ARGV[0];
my $pass1 = $ARGV[1];
my $pass2 = $ARGV[2];

my $ssh = Net::OpenSSH->new($host, passwd => $pass1);
$ssh->error and die "unable to connect to remote host: " . $ssh->error;

my ( $pty, $pid ) = $ssh->open2pty("sudo -kp 'configtest:' bash 2>&1")
    or return "failed to attempt sudo bash: $!\n";

my $expect = Expect->init($pty);

$expect->expect(2,
        [ qr/configtest:/ => sub { my $expect =shift; $expect->send($pass2 . "\n"); exp_continue;} ],
        [ qr/Sorry/     => sub { my $expect=shift; print "Failed\n"; exp_continue; } ],
        );

$expect->interact();